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LA POSTA I 

1 


• 1) Vorrei sapere come certi pro- 
grammi, a caricamento avvenuto, gi- 
rano senza dare il flUN, 

2 ) Da un po’ di tempo, il mio floppy 
1541 » legge i programmi con fatica e 
molti non li legge, I competenti in 
materia mi hanno detto che si tratta 
di allineamento delia testina "una co- 
sa da niente' 1 che però mi costerà 3 

0 4 mesi di inattività (tale è 11 tempo 
di spedizione al più vicino laborato- 
rio), inoltre non è detto che non si 
sfasino più (anche tra breve tempo). 
Vorrei sapere se tale taratura, visto 
la lunghezza della cosa è possibile 
tarla "In casa 11 . 

3) Vorrei delle chiarificazioni sull’ar- 
ticolo proteggersi dagli sprotettori in 
quanto ho perduto una mattinata col 
provare il SAVE 1 PROVAAT ’ senza 
ottenere nulla o quasi. 

(Rizzi Fabrizio - Venezia) 

* Esistono materiali su disco per po- 
ter regolare Tal lineamento delia testi- 
na del drive. Conoscere qualche si- 
stema. 

(Bifolchi Giordano - Montepulciano) 

□ Rispondo ad entrambe le lettere: 

1) È possibile tramite la conoscenza del 
L.M, e quindi di monitor in L.M., proce- 
dere al lancio automatico di un pro- 
gramma Il concetto principe è quello 
di sfruttare il buffer della tastiera resi- 
dente nelle locazioni basse della me- 
moria. Se in questo Buffer inserisco il 
comando RUN e Return abbiamo un 
avvìo automatico. Come ricrearlo? 

Ciò è un po’ complesso e potrà essere 
oggetto di un futuro articolo. 

2) E ormai risaputo che una parte dei 
drives 1541 tendono a perdere l'allinea- 
mento delie testine, ciò probabilmente 
è dovuto a qualche componente non 
propriamente ,L stagionato". 

Cosa fare? Sconsìglio vivamente inter- 
venti casalinghi, né tantomeno I 1 utiliz- 
zo di software di dubbia validità. 

Un vero ed efficace al lineamento di te- 
stine viene effettuato con: 

1 oscilloscopio a doppia traccia 

1 dischetto di allineamento per il drive 
specifico 


1 software per forzare alcune funzioni 
del 1541 

Dopo un riallineamento difficilmente cr 
si può trovare nuovamente dì fronte al 
medesimo inconveniente. 

3) PROVAAT possiede delle T in rever- 
se mode, ciò non corrisponde alla let- 
tera scritta in quei modo, ma al simbo- 
lo del comando Delete, 

* Durante Muso del Commodore 64 
talvolta ciò che è memorizzato si dis- 
solve nel nulla. Mi accorgo che que- 
sto quando tutta la schermata mi si 
sposta a destra e quando ritorna in 
posizione normale ho solo le infor- 
mazioni iniziali del Commodore 64. 
Ho anche misurato la corrente, in 
questi casi, ma sembra tutto norma- 
le, 

(Roberto - Calcinala) 

□ Probabilmente il problema risiede 
nel cablaggio del suo Commodore 64 
con unità periferiche (disco, registratore 
eco. eoe.) infatti se i connettori dei ca- 
vi non sono inseriti bene nelle loro pre- 
se possono innescare il cosiddetto ' Sy- 
stem reset” riportando il computer al- 
lo stato d’iniziale accensione. 

La consigliamo pertanto di rivedere l'in- 
tegrità dei suoi cavi e se necessario 
provvedere alla sostituzione degli stes- 
si. 


* Vorrei sapere come si può accede- 
re al sistema operativo del C. 64 in 
modo da inserire altri comandi BASIC 
personali. 

(Luca Prandi ni - Orbate ilo) 

□ Implementare il BASIC residente di 
qualsiasi Personal o Home computer 
non è così facile ne tantomeno sempli- 
ce da spiegare. 

Con questo non si vuole demoralizza- 
re il caro lettore, ma consiglio prima un 
approfondimento del linguaggio mac- 
china e del sistema operativo, ciò sarà 
la chiave dì apertura di quella porta per 
accedere a qualche cosa dì più com- 
plesso e aFfascinante. 


* Vorrei sapere per cortesia come è 
possibile conoscere il contenuto del- 
le varie ”POKE ,T del Commodore 64, 
VI vorrei chiedere inoltre di essere 
più semplici nelle vostre spiegazio- 
ni evitando di omettere cose che per 
voi sono scontate ma che per noi so- 
no talvolta ignote. 

(Luca Prendici) 

□ Non è possibile avere un elenco 
completo delle vario POKE, PEEK o 
SYS, con i relativi significati. Ciò dipen- 
de dal fatto che detti comandi posso- 
no avere molteplici aspetti dipendenti 
dal loro contenuto. 

Ciò che è possibile fare e che è In pro- 
getto per i prossimi numeri di Commo- 
dore è una lunga serie di ‘spigolature” 
inerenti a comandi, routinetle e notizie 
varie che per loro natura non giustifi- 
cano un articolo vero e proprio. 


• Chiedo suggerimenti per verifica- 
re la fattibilità di una mia idea. Inten- 
dersi col lega re un piccolo personal 
(VIC2Q od altro) con un contacolpi 
meccanico, azionato da una levetta, 
allo scopo di avere una registra zio* 
ne su disco del numero dei colpi ef- 
fettuati nell'arco di un certo periodo. 
Ora chiedo: se è possibile ciò. E se 
si, a livello hardware o software? Rin- 
grazio anticipatamente. 

(Stefano Peruzzo - Verona) 

□ Caro Stefano, una realizzazione di 
questo genere è sempre possibile, È al- 
trettanto chiaro che deve esìstere una 
certa esperienza sia hardware che soft- 
ware, in quanto la risoluzione del pro- 
blema vede la necessità di entrambe le 
partì dell’informatica. 

Una soluzione che potrebbe essere 
ideale vede l'utilizzo di un VIC20 o un 
Commodore 64 con abbinato con un 
aggeggino hardware attaccato alia por- 
ta Joystick. Ogni volta eh© si chiuderà 
il circuito il computer eseguirà le dovu- 
te operazioni che avrai previsto. Da 
queste parole manca solo la pratica che 
certo non è possibile in cosi poche ri- 
ghe spiegare. 
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Pubblichiamo il listato inerente allerticelo “Input controllato” che per un errore di montaggio è apparso capovolto a pag. 40 del n> 2. 
CI scusiamo con I lettori. 


510 PRINT" [HOME]" 

520 POR S*0 TD 19 FRI NT : NEXT 
530 FRI NT TRBC9' "CRVSIFINE INPUT [RV 
OFF ] " 

540 GET D* : IF D=F="" THEN 54tì 
550 FRI NT" ICLERR]” 

560 FOR fl*l T0 6 

570 PRINT TflB<4>At(i,fl> : PRINT 

580 NEXT: END 


590 

680 

610 REM 
620 REM 
630 REM 
640 REM 
650 REM 
660 REM 
67© REM 
680 REM 
690 REM 
700 REM 
710 REM 
720 

730 REM 
740 REM 
750 REM 
760 REM 
770 REM 
775 REM 
780 REM 


*#**#*»*♦♦**♦*#**#*♦***«*«* 


* * 

f. INPUT CONTROLLATO * 
* * 

* DI * 

* * 

* ERNESTO SI DOTI E * 

* * 

* guido minneci * 

* * 


#**##****4*#*:rf#rf *♦***♦♦*# 


XX. .POSI2. X SUL VIDEO 
VX. .POS 12. V SUL VIDEO 
LX. .LUNGHEZZA DELL" INPUT 
TX ..TIPO <. 0 . RLFR/1 . NUM ') 
X*. .VARIABILE DI OUTPUT 


790 : 

R00 PR I NT " t HOME I " ; = FOR OH* 1 T 0 VX- 1 
PR I NT " I DOWN 3 ; NEXT ■ I X*0 : I F VX 
=1 THEN PRINT" CUPI"; 

810 FOR AA=1 TO XX : PRINT " [RIQMTr ; : 
NEXT FOR RR= 1 TO LX : FRI NT" " ; H 


EXT : FOR HR=2 TO LX 
820 PRINT" [LEFT]"; NEXT IF TX=1 THE 
N CS-LEFT*<Xf,l>: IF CT="" OR VA 
L<CS>O0 THEN C**"+" 

830 IF TX*1 THEN X$®C*+RI0HT# <STRf< 
VRL < X# > > # LEN< STR$ < VRL < X* > ) >- 1 > : 
IX“1 

840 IF TX=1 THEN PRINT" CLEFT] " ; 

850 PRINTXS; '• IF TX=1 THEN PRINT" [RI 
OHT3"; 

R6B FOR RR=1 TO LEN < Xf ) : PRI NT " t LEFT 
]", :NEXT 

870 GET Cf : IF C$0" " AND FL*0 THEN 


948 

880 IF C#=" [HOME] “ THEN 800 
890 KX=PEEK < 1 024+ < VX- 1 ) «40+XX+ 1 X ) 


9U0 IF KX>0 HMD KX<127 THEN POKE 10 
24 + ■ VX- 1 > «40+XX+IX, KX+ 1 28 : FL= 1 
910 IF KX> 1 27 RND KXC255 THEN POKE 
1 024 + ( VX- 1 ' «40+XX+ IX, KX- 128 : FL= 
0 

920 IF C**"" THEN 870 
930 IF C$0"" RND FL=1 THEN 910 
940 IF CT-"[HOME]" THEN 800 
950 CX*BSCCCS> : IF CX*145 THEN GOSUB 
1160 GOTO 870 
960 IF CX® 13 THEN 1100 
970 IF TX- I RND IX=0 THEN IF CX=43 
OR CX=45 THEN 1000 
980 IF TX*1 RND <CX=29 OR CX*157> T 
HEN 1000 

990 IF TX=1 RND <CX<48 OR CX>57> TH' 
EH GOSUB 1 160 ; GOTO 870 
000 IF CX-17 THEN GOSUB 1160 'GOTO 8 
70 

1010 IF CX* 157 RND 1X00 THEN GOSUB 

1 160: GOTO 370 

102 O IF CX® 157 RND IX>0 THEN IX=IX-1 
PRINT "[LEFT]"; GOTO 870 
1030 IF CX*29 RND IX>=LX-1 THEN GOSU 
B 1160 GOTO 870 

1040 IF CX=29 RND IXCLX THEN IX=1X+1 
PR I NT "[RI GHT ] ” ; : GOTO 870 
1950 IF TX - 1 RND 1X01 RND <CX=43 OR 
CX®45> THEN 1080 

1060 IF T'X-1 RND CCX<48 RND CX>57> T 
HEN GOSUB 11 60: GOTO 870 
1070 IF CXC32 OR CX>93 THEN GOSUB 11 
60: GOTO 870 

1030 IF IX>LX-1 THEN GOSUB 1160: GOTO 

878 

1090 1X=IX+1 PRINTCt; GOTO 870 
1100 x*=“" IF TX=1 THEN FOR RR=0 TO 
LX- 1 : C-PEEK < 1 024+ < VX- 1 > «40+XX+fl 
R) : X4»X4+CHR$ <C? 

1110 IF TX=1 THEN NEXT: GOTO 1150 
1120 FOR RR'-O TO LX- 1 : C=PEEK < 1 024+ < V 
X- 1 ) 440+XX+RR > 

1130 IF C>27 THEN C=C-64 
1 1 40 X**X*'+CHR# < C+64 ) ' NEXT 
1150 RETURN 

1160 REM ♦*#*#** SOUND *###**#* 

1170 POKE 54277,8 POKE 54278, 17 : POKE 
54273, 89: POKE 54272, 15 : POKE 54 
274,0 

1130 POKE 54275, 9: POKE 54276,65 
1190 FOR 1 T=1 TO 90 ; NEXT: POKE 54276, 
0 : RETURN 
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LO SPACCA BYTE 

dì Gloriano Rossi (Ì2KH) 


Quando ho pensato di fare questo 
articolo mi sono chiesto se per ca- 
so non poteva risultar© uno "spac- 
camento dì p*.. ,r . 

Dato l'argomento* ho messo insie- 
me le due cose, ed il titolo che in 
un secondo momento doveva esse- 
re: "computational 3”, è invece ri- 
masto* leggermente corretto* come 
lo vedete in testa alla pagina. 

Sui grossi computers o su quegli 
elaboratori dove si può operare e 
programmare con linguaggi parti- 
colarmente ©voluti quale ad esem- 
pio Il COBOL, è possibile "giocare 1 * 
con i bytes in una maniera partico- 
lare. 

Infatti se possiedo un campo nume- 
rico è possibile che questo occupi, 
sia in memoria centrale che in me- 
moria di massa, un numero di by- 
tes inferiore rispetto a quello che si 
può presupporre. 

Quando utilizzo il linguaggio CO- 
BOL, posso dichiarare, durante la 
stesura del programma* che un de- 
terminato campo numerico deve 
essere considerato Computa- 
tional-3 (in formato abbreviato 
Comp-3). Alcuni compilatori CO- 
BOL prevedono solamente campi 
numerici con segno, altri invece* un 
po' più evoluti in valore assoluto. 
Sarà il compilatore COBOL e poi in 
conseguenza il relativo Linker che 
provvedere a memorizzare oppor- 
tunamente il numero in oggetto. 
La "compattazione" ottenìbile in 
questo linguaggio prevede la ridu- 
zione della metà più uno, infatti: 

bytes occupati * 
lunghezza campo / 2 + 1 

Vediamo un esempio: 
Consideriamo il numero 25350: se 


il campo che lo contiene era stato 
definito a 7 caratteri COMP-3 allo- 
ra avrò una occupazione di 
7/2 + 1 - 4, e se era stato definito 
senza segno 7/2 = 3.5 e quindi il si- 
stema avrebbe comunque utilizza- 
to 4 bytes. 

Ma vediamo in dettaglio cosa può 
accadere su un computer tipo Com- 
modore: 

Se definisco che un campo nume- 
rico deve avere una capienza mas- 
sima tale da poter contenere nove 
cifre, in condizioni normali tale 
campo occupa nove bytes di me- 
moria dì massa (è bene ricordare 
che intendiamo ia memoria di mas- 
sa* dischetti o cassette* e non la 
memoria RAM del computer, in 
quanto l'organizzazione di quest 1 ul- 
tima relativa a variabili numeriche 
risulta essere un po' più comples- 
sa). 

Ora se attribuisco a tale campo la 
caratteristica dì Computationat-3* 
sul file di disco o di nastro* l'occu- 
pazione risulterebbe pan a 5 bytes: 
infatti 9/2 + 1 da proprio 5.5* di que- 
sto numero si prende in considera- 
zione esclusivamente la parte inte- 
ra* quindi 5. 

Come è possibile tutto ciò? 

Forse siamo tutti a conoscenza* e 
se uno non lo sa ora lo impara, che 
il contenuto di un byte è sempre co- 
stituito da un numero che va da 0 
a 255* tale numero viene scritto in 
memoria e rappresenta un singolo 
carattere. 

Prendiamo ad esempio un numero 
qualsiasi: 656667. 

Tale numero occupa in memoria 
esattamente 6 caratteri* bytes. 
Ogni byte contiene* in codice 
ASCII, un numero di codice corri- 
spondente ad una singola cifra: al- 


lora il nostro numero sarà scritto in 
esadedmale in questa maniera: 36 
35 36 36 36 37* infatti 36 è uguale 
a 3 x 16 + 6 = 54, etc. 

I! Cìnquantaquattresimo codice del- 
la tabella ASCII corrisponde appun- 
to al numero 6. 

Abbiamo con questo scoperto che 
qualsiasi carattere, sia esso nume- 
rico che alfanumerico, viene sem- 
pre associato ad un codice nume- 
rico che va da 0 a 255. 

Ora se io prendo il numero che ab- 
biamo come esempio e lo divido a 
gruppi di due, ogni gruppo potrà 
contenere un numero che potrà an- 
dare da 00 a 99. Non possiamo con 
il medesimo ragionamento prende- 
re in considerazione tre cifre in 
quanto si avrebbe un numero che 
potrebbe andare da 000 a 999 e da- 
to che il byte, come già detto* può 
arrivare ad una cifra massima di 
255 si avrebbe una condizione di 
impossibilità di azione. 

Il nostro numero, quindi, sarà 
scomposto in 65, 66 e 67. 

Questi tre nuovi numeri vengono 
associati ai relativo codice ASCII* 
così: 

65 sarà uguale ad A 

66 sarà uguale ad B 

67 sarà uguale ad C 

Allora la stringa "ABC" può corri- 
spondere al numero di partenza 
656667, occupando però esatta- 
mente la metà dei bytes necessari 
in origine. 

In realtà l'esatta occupazione risul- 
tante da tali manovre deve essere 
calcolata nella seguente maniera: 
L = INT((lunghezza originale)/2) + 
0.5 

Questo è dovuto al fatto che se la 
lunghezza della stringa di origine 
corrisponde ad un numero dispari. 
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Figura n, 1 

Impiccamento (oùmpuitaiùtvail -5) di un fumem postata d n. cifra. 

Mareumpta i rumata è 1, ì, %4 t ?. * 9. 0. 


come ad esempio 7 , sì avrebbe un 
numero con decimale quale risulta- 
to della divisione e quindi.** va be- 
ne spaccare il byte, ma lasciarlo a 
metà è proprio impossibile!! 
Quindi il risultato della divisione va 
arrotondato al numero intero supe- 
riore. 

Nella figura n. 1 possiamo capire 
più facilmente il ragionamento del 
come il programma esegue il com- 
pattamento di un numero intero po- 
sitivo* 

Cosa dobbiamo fare se il numero 
intero preso in esame risuftasse ne- 
gativo? 

Quando, dopo opportuno test, ho ri- 
scontrato la negatività del numero 
eseguo una somma sul primo va- 
lore (byte) del compattato, cioè ag- 
giungo 128* 

Vediamo infatti nella figura n. 2 che 
il primo byte della stringa del com- 
pattato ha un valore decimate 140 
che corrisponde alla somma dì 12 
(prime due cifre del nostro nume- 
ro) O di 128 {convenzione di nega- 
tività). 

I! programma: 

Lo spacca Byte Numerico 

Come si può notare dai! 'infestazio- 
ne sia questo programma che quel- 
lo che verrà in seguito, potrà esse- 
re utilizzato e provato su qualsiasi 
tipo di Commodore, dal VIC20 ai 
nuovi prodotti. 

Essenzialmente il programma si 
può dividere in tre parti distìnte: 
Prima parte inerente aìla inputazio- 
ne del numero intero positivo o ne- 
gativo. In questa fase che può es- 
sere distinta dalla riga 340 alla ri- 
ga 470, si eseguono una serie di 
controlli formali, in modo tale che 
effettivamente il dato fornito in in- 
put sia effettivamente numerico. 
La seconda parte, quella cioè che 
va dalla riga 530 fino alla riga 700 
esegue prima l'esclusione del se- 
gno, se c'è, e quindi pareggia la 
lunghezza in maniera tale che può 
essere compattato con precisione. 
La terza parte infine esegue la ri- 
composizione e ricostruzione del 
numero così come era partito dal- 
l'input deiroperatore* 

La parte finale é stata messa pura- 


mente al fine di conoscere le varie 
caratteristiche delle variabili mani- 
polate e per verificarne l'effettiva 
riuscita. 

Inserire fi Listato 
Lo Spacca Byte Numerico 

Sui grossi computers o su quegli 
elaboratori che utilizzano linguag- 
gi evoluti non è possìbile compat- 
tare una strìnga alfanumerica di- 
chiarata come tale ed il cui conte- 
nuto non sia solamente numerico. 
In BASIC però possiamo farlo! 

È chiaro che devo scendere un po' 
a compromessi rispetto al compat- 
tamento numerico* 

Innanzitutto il risultato di una com- 
pattazione di alfanumerico non po- 
trà essere di lunghezza esattamen- 


te la metà dell’originale, ma la ridu- 
zione corrisponderà ai due terzi del- 
la lunghezza multipla di tre che 
contenga la strìnga stessa. 

Infatti da una stringa di tre caratte- 
ri compatto ad una nuova stringa di 
lunghezza due. 

Seconda limitazione: i caratteri che 
possono essere compattati corri- 
spondono solo aì numeri, tutte le 
lettere dell’alfabeto e a quattro sim- 
boli {lo spazio, il meno, il punto e 
la barra di divisione) per un totale 
di quaranta caratteri, mentre tutti gli 
altri vengono trasformati in spazio. 
Perché solo quei simboli grafici? 

I tre simboli grafici {— ,,/)^ lo spa- 
zio è implicito, sono facilmente ri- 
trovabili neìle stringhe* infatti il — 
o la / divìdono normalmente una da- 
ta, mentre il punto chiude un perio- 
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220 

REM 

* 


* 

230 

REM 

************************** 

240 

REM 

* VIC 28 

SI 

* 

258 

REM 

* COMMODORE 64 

SI 

* 

260 

REM 

* COMMODORE 4088 

SI 

* 

270 

REM 

* COMMODORE 3000 

SI 

* 

280 

REM 

* COMMODORE 16 

SI 

* 

290 

REM 

* COMMODORE 116 

SI 

* 

300 

REM 

* COMMODORE 264 

SI 

* 

310 

REM 

* COMMODORE 364 

SI 

* 

320 

REM 

************************** 


330 : 

340 PR I NT " L CLERR ] [ ROSSO ] BATT I UH N 
UMERO DI N CIFRE [MERCO” 

350 INPUT XX$ 

360 L=LEHOÌX$> 

370 : 

330 REM ************************** 
390 REM * CONTROLLO FORMALE * 

480 REM ************************** 
410 : 

420 ER=0 : FOR N=1 TO L 
430 -X$=MID$CXX$,N, 1> 

440 ^ IF N=i AND X$="~" THEN NE=-1 : 

GOTO 460 : REM SE NEGATIVO 
450 : IF XK"0“ OR X#>"9" THEN ER=E 
R+l 

460 NEXT N 

470 IF ER THEN FRI NT "CI SONO "ER" 
ERRORI NEL NUMERO! ! ! " :PRIHT”RI 
PETI" : GOTO 340 
480 * 

490 REM ************************** 
500 REM * TOGLIE IL SEGNO * 

510 REM ************************** 

526 : 

530 IF HE THEN XX$=MIDJ <XX$, £) ; L=L 
-1 

540 ^ 

55S REM ************************** 


568 REM * PAREGGIA LA LUNGHEZZA * 
570 REM ******** ****************** 

530 ■ 

59R IF < L/2 i O I NT C L/2 > THEN XX$="0 
"+XXf :L=L+1 
680 ■ 

61 fi REM ************************** 
620 REM * COMPUTATI ONAL 3 * 

630 REM ************************** 
640 FOR 1=1 TO L STEP 2 
650 ■ C=VRL < M I Dì < XX$ , 1 , 2 > ) 

660 : IF NE AND 1=1 THEN C=C+12S:RE 
M SE NEGATIVO 

678 

680 :C$=CHR$CC> 

690 : C3$=C3Ì+C$ 

700 NEXT 
710 ^ 

720 REM ************************** 
730 REM * RICOMPOSIZIONE DI C0MP3* 
740 REM ************************** 

75@ : 

768 CS=“" : NE=0 

778 FOR 1 = 1 TO LEM ( C3$ > 

788 :C=flSC<MID*<C3*. I, 1J) 

790 -IF 1 = 1 AND 0128 THEN C=C-128 
: NE=-1 : REM RICONOSCE SE ERA N 
EGRTIVO 

800 :C$=STR$CO 

810 : 0$=” 08 " +R I GHT$ < C*, LEM < C$ > - 1 > 
820 :C$=RIGHT$<C$,2} 

830 : IF 1 = 1 AND LEFTfCC*, O = "0" TH 
EN C$=RIGHT*0::$, 1> 

348 : IF 1=1 AND NE THEN CJ=“-"+CT' 
REM SE NEGATIVO 
350 : CC*=CC*+C$ 

360 NEXT I 
870 : 

388 REM ************************** 
390 REM * DISPLAY DI CONOSCENZA * 
980 REM ************************** 

918 : 

928 FRI NT" 12 DOWN I IBLEO ] LUNGHEZZA 
[NERO] "L 

930 PRINT"C£LEU]N. INIZIALE [NERO] 
"VALO/Xf >*HE 

940 PR I NT " [ BLEU ] COMP 3 ' [NERO] 

"C3$ 

958 PRIHT" [BLEU3LEN DI 03* [NERO] 
"LEHCC3* > 

960 PR I NT " [ BLEU ] R I NORM AL I Z . [NERO] 
"OC* 
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memorie magnetiche per computer . 




do o è facente parte delia punteg- 
giatura di un numero. 

Perché solo 30 caratteri? 

Beh, . . qui la faccenda si complica 
un po' e spero di spiegarmi per il 
meglio. 

Noi sappiamo che un byte, un ca- 
rattere, può contenere un numero 
che va da 0 a 255, cioè 256 nume- 
ri. Due bytes mi danno una scelta 
da 0 a 255 e da 0 a 255, cioè 256 
e 256 possibilità, quindi se moltipli- 
co il primo byte per il secondo avrò 
una scelta che va da 0 a 65536, 
Dentro questo numero devo farci 
stare la codifica di tre caratteri ori- 
ginali. 

Quale range, quale numero di scel- 
te, mi permette, tramite un determi- 
nato algoritmo, di rimanere nel 
65536 e comunque avere tre c odi- 
fiche? 

Il numero incriminato è proprio 40, 
Infatti se io moltiplico 40 per 40 per 
40 mi dà esattamente 64.000. Ma 
allora perché non 41 o più? 
Vediamo: 4t x4l x4l è uguale a 
63,921 , quindi non ci stà in 65536. 
Se attribuisco un numero che va da 
0 a 39 per ogni carattere previsto 
ho a questo punto una tabellina di 
conversione. 

Infatti per facilitare le cose parto dal 
valore ASCII dei numeri e delle let- 
tere; se sono numero (compreso il 
— , il . e la /) tolgo al valore ASCII 
la costante 44, mentre se è una let- 
tera tolgo 51 (vedi tabella riportata 
in Figura n. 3) 

Dai tre valori cosi calcolati, moltipli- 
cando il primo per 1 , il secondo per 
40 ed il terzo per 1600 (40 x 40) ed 
eseguendo la somma dei valori tro- 
vati ottengo un numero che non po- 
trà essere mai maggiore di 64000, 
if quale scomposto in due bytes mi 
da due caratteri del codice ASCII 
memorizzabilj sia in memoria RAM 
che in memoria di massa. 

Per meglio capire il ragionamento 
suggerisco di rileggere le righe pre- 
cedenti osservando la figura n, 4 
La ricostruzione della stringa a due 
in stringa originale a tre ci porta ad 
un nuovo algoritmo di relativa com- 
plessità :àe sì è capita esattamente 
la logica di compattazione. 

Dal valore ASCII dei due caratteri 


mi riporto al valore compreso fra 0 
e 64000, moltiplicando il primo per 
256 e sommando il secondo. 

Da questo numero diviso per 40 
considero solo la parte intera che 
moltiplicata per 40 e sottratta dal 
numero originale mi dà un valore a 
cui devo aggiungere 51 se è supe- 
riore a 1 3 (ricostruzione di lettera), 


mentre devo aggiungere 44 se è in- 
feriore di 14 (ricostruzione di nume- 
ro). 

Dal numero trovato dall'Intero del- 
ia divisione del valore iniziale frat- 
to 40 ripeto la medesima operazio- 
ne per la seconda lettera. 
Dalllntero dei secondo numero 
fratto 40 ho direttamente il terzo nu- 
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* 


* 

F 

94 

150 

46 

70 


94 * 256 + 150 


24214 


intero 


intero 

24214/40 


'605/40 


605 ~ 

| 24214 - 605 * 40 


15 . 


605 - 1 5 4 4fl j 




46 É 256 + 70 


11846 


intero 


intero 

11846/40 

1 

„ 296/40 | 


296 


296 * 7 *40 


14 

5 

Ns 

6 

16 

7 

+ 51 

+44 

+ 51 

+ 44 

+ 51 

+ 44 

65 

51 

66 

50 

67 

51 

h 

□ 

m 

E 

E 

0 



Figura n. 5 

Ricostruzione della stringa compatta 




mero per la terza lettera. 

Tutto qui (In ogni caso ritornate sul 
ragionamento osservando la figura 
fk 5). 

Il listato del programma: fl Lo Spac- 
ca Byte Alfa" risulta essere un po' 
più lungo del primo, un po' per la 
complessità dell'argomento ed un 
po f perché ho voluto commentarlo 
meglio con le REMarcks. 


Una descrizione, quindi, particola- 
reggiata, riga per riga come è mia 
abitudine, potrebbe in questo caso 
confondere più che chiarificare. 
Un unico commento prima di con- 
cludere; in entrambi ì listati potrete 
notare che i cicli di POR... NEXT 
sono evidenziati con il carattere “:* p 
in inizio riga. È solo un fatto esteti- 
co che et permette a colpo d’occhio 


di individuare i vari loop, dove ini* 
ziano e dove finiscono. 

Tenete presente che se li battete 
avrete due listati esteticamente bei- 
ti, a discapito però della velocità, in- 
fatti l'Interprete BASIC deve perde- 
re tempo per riconoscere il **:" e 
non fare nulla, come pure perde 
tempo per riconoscere le REM e 
saltare alle seguenti istruzioni. 


100 rem 


105 REM * * 
110 REM * LO SPACCA BVTE ALFA * 
115 REM * $ 
120 REM * IMPflCCfiMENTQ $ 
125 REM * E * 
130 REM $ DISI MPflCCfìMENTO * 
135 REM * * 

148 rem 

145 rem * $ 
150 REM * BUTHOR SOFTWARE : * 
155 REM * $ 
160 REM * GLORIANO ROSSI <I2KH) * 
165 REM * $ 


170 rem 


175 

REM 

* 

VIC 29 


SI 

* 

130 

REM 

* 

COMMODORE 

64 

SI 

* 

185 

REM 

* 

COMMODORE 

4000 

SI 

* 

190 

REM 

* 

COMMODORE 

8000 

SI 

* 

195 

REM 

* 

COMMODORE 

16 

SI 

* 

200 

REM 

tt 

COMMODORE 

116 

SI 

* 

205 

REM 

* 

COMMODORE 

264 

SI 

* 

210 

REM 


COMMODORE 

364 

SI 

* 

215 

REM 



225 FRI NT 11 [ OLEARI C 2 DOWN J CROSSO ]ER 
ITI UNA STRINGA DI CRRRTTERICN 
EROI" 

230 INPUT 11 CNER03 Af*E VERDE] M ;fl* 
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235 XHf ; GOSUB 325 
24@ GOSUB 540:BÌ=XAÌ 
245 FRI [■■■IT “ C2 BOWNK VERDE ]H$==CNERO]' 
" ; flt 

£50 PR I NT " C BONN ] C RV3 2 L NERO I LEN PR I 
MR =[ VERDE LENONA^’ 

£55 FRI NT " C DOWN ] [ RVS 1 C NERO 3 LEN D OP 
0 = E VERDE ] 11 ; LEN C XX$ > 

£4.0 PR I NT “ C 2 DOWN 3 1 BLEU 3 ZZ$= " ; XX$ 
2E5 PR I NT " [ 2 DOWN 3 C VERDE 3 ?&■ = C HER 0 3 
" ; ET 

£7@ FRI NT" [DOWN 3 [RVS 3 [NERO 3 LEN RIP 
R =£ VERDE] " J LENIXAÌO 
£75 INPUT "CROSSO 3 VUOI RIPROVARE C 
S/N) [NERO 3 " ; Kf 

280 I F LEFT f < Kf, 1>=" N 11 THEN END 
285 GOTO £25 

298 REM ******************* 

£95 REM * COMPATTAMENTO * 

300 REM * DI STRINGA * 

305 REM ******************* 

310 REM * AGGIUSTHMENTO * 

315 REM * LUNGHEZZA NAT ¥ 

328 REM ******************* 

325 X3 ~ I NT C < LEN < XA$)+2>/3) *3~LEH ( X 


338. 


348 

345 

350 

355 

360 

36S 

370 

375 

330 

385 

390 

395 

400 

405 

410 

415 

428 

425 

430 

435 

440 


Aì) 

IF X3=0 THEN 345 : REM E' UN MU 
LT IRLO DI 3 

IF K3= 1 THEN Xfif ^XRT+CHRT < 8 ) : G 
OTO 345: REM SE MANCA 1 CHE 
XR$=XRT+CHR$ C @ > +CHRT C 0 ) : REM « 
E MANCANO 2 CHR 
X3=LENCXA$> 

XX$=" " 

REM ** ***************** 

* PRENDE IH ESAME * 

* 3 CHR PER VOLTA * 

* **:+ *************** 

XI=1 TO X3 STEP 3 

X3Ì =M I L$ < Xfì$ .■ X 1 , 3) : XS=>0 
REM ******************* 

* ESAME DI 1 CHR $ 

* DEI 3, PER VOLTA $ 
******************* 

XJ=1 TO 3 

: XK=ASC ( M I Dì- ( X3$ , X J , 1 ) > 

■ IF XKC45 THEN XK=0 : GOTO 435 
: REM ***************** 

: REM * SÉ E*' : * 

■REM * ~./0 123456789 * 

: REM ***************** 

: IF XKC58 THEN XK=XK-44 : GOTO 


REM 

REM 

REM 

FOR 


REM 

REM 

REM 

FOR 


445 

458 

455 

460 

465 

470 

475 


480 

485 

480 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

.560 

565 

578 

cr'jvcr 

588 


598 

595 

600 

635 

616 

615 

620 

625 

630 

635 

640 

645 

658 

655 

660 

665 

670 

675 

680 


485 

: : IF XKC65 THEN XK-0-GOTO 435 
: : REM ***************** 

: : REM * SE # : * 

: : REM * HBCDEFGHI JKLM * 

: ■ REM * NOPGfRSTUVWXVZ * 

: : REM ***************** 

- : IF XK<9 1 THEN XK=XK~51 : GOTO 

435 

: : XK=0 

■ : XS=XS+XK* C 40 tC X J- 1 ) ) 

: NEXT 

: XK= I NT < XS/256 ) 

■■ XJ=XS~XK*256 

: XX$= XXì+CHR $ C XK ) +CHRTC X J > 

NEXT 

RETURN 

REM ******************* 

REM * RICOSTRUZIONE * 

REM * DI 'STRINGA * 

REM ******************* 

XA$=" " 

FOR XI=1 TO LENCXXT) STEP 2 
: XK-ASC < M I Dì C XX$ , X 1,1) ) 

: X J=R-SC < M I D$ < XX$ , X 1 + 1,1)) 

: XK=XK*256+NJ 
: REM ******************* 

: REM * PRIMO CARATTERE * 

: REM ******************* 

: X J= I NT < XK /4 0 > : X3=XK~XJ*4C : GO S 
UB 670 

: XAÌ =Xfi$+CHR$ ( X3 ) 

: REM ******************* 

: REM * SECONDO CHR * 

: REM ******************* 

: XK=INT CXJ/40 ? : X3=XJ~XK*40 ■ GOS - 
UB 67@ 

: Xhì-XRÌ+CHRÌ C X3 ) 

■ REM ******************* 

REM * TERZO CARATTERE * 

: REM ******************* 

: X3=XK ^ GOSUB 670 
:Nfi$=XA*+CHR$<X3) 

NEXT 

RETURN 

REM ******************* 

REM * RICOSTRUZIONE * 

REM * VALORE ASCII * 

REM ******************* 

IF X3=0 THEN X3=32 : RETURN 
IF X3< 1 4 THEN X3=X3+44 : RETURN 
X3-X3+51 : RETURN 
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IL SYSTEM RESET 

di Tullio Spezia (i 2 TZS) 



Chi possiede un pò di pratica di ap- 
parecchi elettronici, conosce bene la 
funzione dei RESET, cioè quella fun- 
zione utile per riportare una macchi- 
na nelle condizioni iniziali di lavoro. 
Normalmente questa funzione è atti- 
vata da quel pulsanti no che mette di 
solito a massa un punto del circuito. 
Tutto ciò è utilizzabile anche nei 
Computer, e\,„, se non c è. si può 
sempre mette rio. 

Vediamo come lo si può agguin- 
gere ad un Commodore C-64 f senza 
manometterlo, nè tantomeno dare 
adito a danni presenti e futuri deliap- 


parecchio, ed impariamo anche la 
sua importante funziono e comodità. 

So fosse solo per la comodità .... 
diciamo che sé fa prima a schiacciare 
un pulsanti no che a digitare sulla ta- 
stiera il famoso SYS 64738 per rico- 
minciare con un nuovo programma: 
tanto più che bisognerebbe ricordare 
a memoria il “64738 T \ Altrimenti bi- 
sogna andarselo a cercare da qual- 
che parte, per non parlare di come 
certi programmi si "piantano 11 in ma- 
niera tale che nè io STOP e nemme- 
no lo STOP e RE STO RE riescono a 
farli tornare aia normalità. 


Nulla varranno !e nostre dispe- 
rate "pestate" sui tasti, nè tanto me- 
no si potrà spegnere senza perdere il 
lavoro tatto con tanta pazienza poco 
prima. 

Ecco come risolvere per il me- 
glio il pasticciacelo: azionando il RE- 
SET così chiamiamo il pulsammo 
che vi propongo si avrà la restituzio- 
ne dell'uso della tastiera. Ciò con- 
sente di effettuare il LOAD di un parti- 
colare programmino ausili ario (in lin- 
guaggio macchina) con cui recupe- 
riamo prontamente il programma in 
RAM che sembrava perduto. E se 
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Se non volete problemi di memoria, 
meglio far lavorare 3M. 


I problemi di memoria dì 
un'azienda trovano la prima rispo- 
sta nella 3M già net 1951, anno in cui 
la 3M sviluppò iì primo nastro ma- 
gnetico per computer 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili- 
tà della produzione 3M nel settore 
dei supporti magnetici. 


costruttori, certificate al 100%, ga- 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare dì 400 punti ven- 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma- 
gnetico che consente un'eccezio- 
nale resistenza all'usura e la massi- 
ma affidabilità. 3M ha sempre una 


E non solo con i prodotti per l'in- 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione^ 

Perchè 3M lavora offrendo so- 
luzioni <L ad alta tecnologia" per il vo- 
stro affido, E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 



Prendiamo le diskettes, ad risposta pronta per i vostri proble 
esempio: omologate dai maggiori mi di ufficio r , 


La tecnologia risponde 
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per caso, si fa per dire, sbadatamen- 
te abbiamo digitato NEW e fatto il 
RETURN (un gaso tìpico da pistola 

alla tempia e CLICK ...PUMM) 

Con un pò di freddezza è possibile 
azionare il RESET, fare il LOAD del 
programmino ausi!?ario, ed ecco pre- 
sente al LIST od al RUN il program- 
ma a cui avevamo dato, con il NEW. 
anche i nostri saluti. 

Intanto, diamo una buona oc- 
chiata al manuale d : uso del c-64, o 
meglio ancora alla Reference Guide. 
Andiamo alla pagina in cui si parla 
della USER FORT, cioè quel connet- 
tore che dovrebbe essere utilizzato 
per gli apparecchi esterni. 

É chiaro che dovremmo aver ac- 
quistato un connettore adatto, com- 
pleto di guscio di protezione, e dotato 
d'un pulsanttno che fisseremo sul gu- 
scio stesso. Facendo il collegamento 
del pulsanlino alle pagliette del con- 
nettore stesso avremo tutto quanto è 
necessario per avere il RESET sen- 
za manomettere o aprire il C-64, 

Osserviamo il manuale: il piedi- 
no 3 è appunto il reset, ed il piedino 1 
corrisponde alla massa del circuito. 
Visto? Sono quelle le due pagliette 
del connettore a cui devono essere 
saldati i due conduttori che vanno al 
pulsanttno. Ma, se non siete sicuri 
delle vostre capacità di saldatura è 
bene far eseguire la realizzazione 
pratica a qualsiasi buon tecnico dei 
saldatore anche non del campo com- 
puter. 

Non fate gli impazienti. Quindi 
non toccate sbrigativamente gli stes- 
si punti suggeriti usando una forcina 
da capelli; ciò facendo, avendo la 
grande probabilità di fare qualche 
cortocircuito poco gradito dal rap pa- 
recchio. 

Cosa accade utilizzando il RE- 
SET? 

La Reference Guide, in maniera 
un pò più ampia, spiega che metten- 
do prowissoriamente a massa il pie- 
dino 3. si riesce a resettare comple- 
tamente il C-64, e quindi anche i pun- 
tatori del programma in BASIC, men- 



tre la memoria RAM non viene vuota- 
ta. Perciò occorre solamente rimette- 
re i puntatori ai loro posto, e la situa- 
zione iniziale è pe riattamento ripristi- 
nata. 

I puntatori indicheranno all'inter- 
prete la posizione del programma da 
ricuperare solo se non verranno di- 
sfrurbati dal sopraggingere di un 
nuovo programma in BASIC. Biso- 
gna perciò usare un programma 
ausiliario In linguaggio macchina 
preparato prima su nastro o sul di- 
sco. 

Oltre a ciò questa utility non de- 


ve sovrapporsi ad alcun programma 
in corso, per non "rompere le uova 
nel paniere”. 

L'utility occupa pochi bytes, 
quindi avremo la possibilità di locarla 
in una isoletta delia memoria che 
parte alla locazione 679 (02A7 in es- 
sa) dove non da fastidio, e trova an- 
che spazio sufficiente. 

Il listalo del programma BASIC 
che provvede a generare nella giusta 
locazione l'utilrty di RESET è riporta- 
to qui più avanti. Dopo averlo digitato 
falene subito il SAVE. 

Quando darete il RUN, è il pro- 
gramma stesso che pone la routine 
nella giusta locazione e, ciò fatto, 
eseguo il comando dì salvataggio 
dell'utility stessa, chiamandola pro- 
prio RESET. Troveremo quindi auto- 
maticamente sul nostro disco (o cas- 
setta) il programma "RESET" vero e 
proprio. 

Sarà di quest'ultimo che faremo 
il LQAD "RESET" 8, 1 dal disco {op- 
pure LOAD "RESET”, 1 , 1 se da cas- 
setta) facendo attenzione al "virgola 
uno” In finale perchè è essenziale. 

Ecco il LIST de! programma genera- 
tore scritto in BASIC: 


IO REM s PRQGR- 11 RESET /PREP 11 
20 A=679 

30 READ T: I F T=256 ThEN SO 
40 PQKE A, T : A=*A+l s BOTO 30 
50 POKE 43,679 PND 255* POKE 44,2 
60 POKE 45,733 PND 255= POKE 46,2 
70 CLR: SRVE“0S RESET", 8 
80 DATA 160, 3, 200, 177, 43, 206, 251, 
200, 200, 152, 160, 0, 145, 43 
90 DATA 165, 44, 200, 145, 43, 133, 60, 
160, 0, 132, 59, 162, O, 200 
lOO DATA 206, 2, 230, 60, 177, 59, 208, 2 
45, 232, 224, 3, 208, 242, 200 
110 DATA 208, 2, 230, 60, 132, 45, 164, 6 
O t 132, 46, 96, 256 
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Se non possedete l'unità a dis- 
chi, ma solamente il registratore, do- 
vrete sostituire la riga 70 in questo 
modo; 

70 CLR: SAVE "RESET" 

Il collaudo 

Il collaudo di tutta la faccenda è pre- 
sto fatto: 

• digitate un qualsiasi programma di 
poche linee o caricatelo dal disco o 
cassetta; 

• eseguite il NEW; 

• premete brevemente il pulsanti no 


di RESET; 

* poi: LOAD “RESET”, 8,1, (ricorda- 
re il ^virgola uno"; e per fa cassetta 
LOAD M reset" , 1,1); 
e dopo il RETUR, digitate SYS 679 
per avviare il programma in linguag- 
gio macchina. 

Quando riappare il cursore, in 
pratica quasi istantaneamente, pote- 
te procedere col LIST (o col RUN) e 
si avrà la gradita ricomparsa del pro- 
gramma che avevate annientato coi 
NEW. 

Due parole sul connettore: può 
essere utilizzato il tipo TRW 251 -IS- 


SO- 170/50- 24 SN-9 assieme al cop ri- 
connettore dei. a Cannon tipo DO 1 15 
339-4, avvitandolo con due viti poco 
più lunghe di quelle fornite. Farsi da- 
re (o rimediare) due divisori da inseri- 
re opportunamente nel connettore 
TRW per impedire una inserzione 
capovolta, e che devono corrispon- 
dere agli appositi intagli presenti sul- 
la piastra del C-64. 

Una volta costruito questo pic- 
colo accessorio può essere lasciato 
sempre innestato nel lineavo della 
USER PORT, alla quale si adatta 
perfettamente. 


Pulsante di Reset per C*64 


Chiusura 
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John si guardò intorno con fare cir- 
cospetto, estrasse dal tacco un mi- 
crofilm e fece per consegnarlo a 
Bors. 

Fermi, restate dove siete, siamo del 
controspionaggio, gracchiò un me- 
gafono mentre la notte veniva illu- 
minata da potenti riflettori... 
Fermo non girar pagina! 

Abbiamo scherzato. Questo non è 
un articolo sulla CIA, ma sul C IA 
(ovvero Complex Interface Adap- 
ter), 

Cos’è il CIA 

Il CIA (6526) è un integrato della fa- 
miglia 65xx. Il suo compilo princi- 
pale riguarda la gestione dì due 
porte ingresso uscita. 

Net Commodore 64 sono montati 
due di questi versatili integrati, uno 
è utilizzato dai sistema per gestire 
la tastiera, l'altro per comunicare 
con sistemi esterni, proprio di que- 


st’ultimo chip ci occuperemo in 
questo articolo. 

Come forse non sai, il Commodore 
64 dispone dì una potentissima por- 
ta utente, questa supportata da po- 
chi componenti esterni e da un soft- 
ware adeguato permette di interfac- 
ciare il tuo Home-Computer con 
estrema facilità, così il tuo piccolo 
calcolatore avrà la possibilità di ri- 
cevere o trasmettere informazioni 
all'esterno senza l'ausilio dell’ope- 
ratore. 

Una applicazione di tale porta ad 
esempio la si può avere in casa. Il 
Commodore potrebbe farti da ver- 
satile segretaria, rispondendo auto- 
maticamente al telefono, mandan- 
do un messaggio preregistrato o 
magari sintetizzando la voce e av- 
viando nel contempo un registrato- 
re capace dì memorizzare il mes- 
saggio deirinterlocutore. Così 
quando tornerai a casa potrai ascoF 


tare le telefonate pervenute in tua 
assenza. 

Quando sei in casa potrebbe tele- 
fonare automaticamente e ripetere 
il numero da te scelto fin tanto che 
non risulta libero. Un'altra applica- 
zione potrebbe essere quella di an- 
tifurto, Il computer collegato al si- 
stema di allarme le luci di casa, la 
televisione o la radio simulando la 
presenza di gente. 

Se scatta l’allarme lui telefona a dei 
numeri da te dati prima dì uscire av- 
vertendo così del verificato allarme. 
Nel campo del lavoro le applicazio- 
ni sono tante, ad esempio r automa- 
zione dette pompe da giardino. 
Queste, comandate dal calcolatore, 
verranno azionate tenendo conto 
deirumtdità della terra o deli’aria 
della temperatura e della luce e 
inoltre del tipo di coltura e della di- 
sponibilità idrica. 

Interessante potrebbe essere una 
applicazione in campo fotografico, 
fi tuo Home adeguatamente inter- 
face iato potrebbe controllare la 
temperatura dei bagni, la temporiz- 
zazione delle esposizioni in base al 
tipo dì carta e alla trasparenza del 
negativo. 

Un'applicazione ideale la si ha in di- 
scoteca dove potrebbe controllare 
rimpianto di illuminazione. 

Spero adesso di aver acceso una 
costruttiva fantasìa in te e di averti 
un po’ fatto conoscere le infinite ap- 
plicazioni della tua macchina. 

Ma adesso torniamo alla porta 
utente. Da questo connettore 
(12 + 12 poli) abbiamo a disposizio- 
ne ben 8 porte input-output pro- 
grammabili singolarmente e un in- 
terfaccia RS232 programmabile,' 
ma purtroppo non standard per 
quanto riguarda le tensioni di in- 
gresso e di uscita (poco male con 
poca circuì feria diventa standard). 
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In questo numero cì occuperemo 
proprio delia porta di input-output. 
Per i principianti, le porte sono di- 
spositi che permettono ai dati dì en- 
trare o uscire dal calcolatore. La 
porta viene detta seriale se i dati 
passano hit dopo bit in successio- 
ne attraverso un solo filo t un esem- 
pio di questo tipo di porta è l'inter- 
faccia per il tape. Una porta invece 
si dice parallela se i dati passano 
Byte dopo Byte cioè gli otto Bit che 
rappresentano il dato si presenta- 
no contemporaneamente sulle gli 
otto pin della porta. La porta B del 
tuo Commodore 64 è proprio una 
porta parallela. I pin C D E F H J 
K L (vedi fig. 1) sono collegati diret- 
tamente ai piedini del l'integrato 
6526. 


Da ognuno di questi pin possono 
entrare o uscire tensioni a secon- 
do se il pin è stato settato in ingres- 
so o uscita. 

Il registro che decide quale Bit set- 
tare in uscita e quale in ingresso è 
il D.D.R. (Data Direction Reglsler). 
Questo registro risiede nella loca- 
zione 56579. 

Mettendo 1 in un Bit dei D.D.R. sì 
ha il corrispondente pin settato in 
uscita, cioè si avr« la possibilità di 
disporre sul pin dì una tensione 
bassa o alta secondo programma. 
Sedando a zero un Bit del D.D.R. 
la porta sarà pronta a ricevere dati 
dall'esterno ossia nel corrisponden- 
te pin potremo applicare una ten- 
sione bassa o alta secondo neces- 
sità. 


Quindi con POKE 56579,255 la por- 
ta sarà settata tutta in uscita, con 
POKE 56579,0 tutta in ingresso. 
Con POKE 56579,128 si mette in 
uscita il Bit 7, ì restanti 7 bit in in- 
gresso (vedi fig. 2). 

Dopo aver fissato quale Bit deve ri- 
cevere e quale deve trasmettere, 
bisogna adesso leggere o scrìvere 
su tale porta. Questa funzione è 
svolta dal registro P.R.B. (Peripho- 
ral Data Reg B) locato in 56577. 
Supponiamo adesso di aver mes- 
so tutti i bit del D.D.R. a 0 cioè la 
porta è pronta a ricevere per ogni 
singolo ingresso due valori dì ten- 
sione, uno basso che rappresenta 
lo 0 L altro alto rappresentante l'u- 
no. 

Se agli otto ingressi adesso appli- 



J, Heiibom, R. Talbott 
GUIDA AL COMMODORE 64 

pag. 440 L 36.000 
Finalmente un completo 
e documentato manuale per il 
Commodore 64. 

Vi sì trovano descritta tutte 
le funzioni e i comandi 
dal BASIC con particolare 
attenzione alla gralica, al colore 
e al suono. 

Alcuni importanti capitoli sono 
dedicati ai problemi 
deli 1 interfacciamento. 


fì. Jeffries, G. Ftsber, 

B. Sawyer 

DIVERTIRSI GIOCANDO CON 
IL COMMODORE 64 

pag. 280 L 22.000 
Una raccolta di 35 programmi 
che impiegano tutte le migliori 
caratteristiche del 
Commodore 64 in particolare 
il colore, la grafica e il suono. 

Il libro suscita Interesse non 
solo per I giochi in esso 
contenuti ma anche per la 
quantità di trucchi" di 
programmazione che si possono 
Imparare utilizzando i listati. 


H. Pecftham 
IL BASIC E IL 
COMMODORE 64 
IN PRATICA 

pag. 300 Life 27.000 
Herbert Peckham è uno dei 
maggiori divulgatori dei BASIC 
e delia programmazione 
in generale: i suoi libri della 
serie ’Hands-cn BASIC 1 ' hanno 
sempre riscosso un vasto 
successo per la loro chiarezza 
e semplicità. 

Questo, in particolare, è 
dedicato ai Commodore 64. 

K. Skier 

L ASSEMBLER PER IL VIC 20 
E IL COMMODORE 64 

pag 420 Inverno ’84 
Numerosissimi sono gli utenti 
VIC 20 e Commodore 64 che, 
pur conoscendo 
approfonditamente il BASIC, 
hanno ancora difficolta ad 
orientarsi col linguaggio 
macchina nel cuore stesso 
del microprocessore, li libro, 
partendo da concetti molto 
elementari, si articola attraverso 
numerosi esempi pratici tino a 
una complete comprensione 
del l'Asse mbler. 


In tutto il mondo la McGraw-Hill 
pubblica do circo di titoli dedicati al calcolatori 
della Commodore. 

Richiedete il catalogo dei libri in lingua 
italiana e il McGraw-Hill Computer Catalogne. 


distri b uzi o ne in li b re ria : McG ra w- Ri 1 1 B o ok Co. GmbH 

M essag g èri e Li bri 3. p . A . Lad em a n n bog en 1 36 
Via Giulio Cardano, 32 D 2000 Hamburg 63 
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PER VIC 20 E COMMODORE 64 

Adatta tutti i normali registratori a cassetta a! 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I V. A. e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono di 



chiama una tensione alta e contem- 
poraneamente leggiamo il valore 
dei P.R.B. (PEEK{56576)) il calco- 
latore ci ritornerà il valore 255 Indi- 
candoci ('avvenuta commutazione 
in valore aito. 

Se invece leggiamo il valore 253 si- 
gnificherà che avremo una tensio- 
ne bassa nei pin che tanno capo ai 
BIT 0 e 1 dei P.B.R. una tensione 
alta nei restanti pin. 

Allo stesso modo se tutte le porte 
sono settate in uscita (POKE 
56579,255) quando nei P.RB, ver- 
rà messo ìl valore 255 sugli otto pin 
interessati della porta utente si po- 
trà leggere con uno strumento una 
tensione alta, circa 5 Volt, se nella 
locazione 56577 verrà messo il va- 
lore 253 si misurerà una tensione 
bassa nei pin collegati ai primi due 
bit del P.R.B, alta nei restanti. Ov- 
viamente potremo settate ad esem- 
pio i primi 4 Bit in ingresso ì rima- 
nenti in uscita e compiere regolar- 
mente le operazioni dì scrittura e 
lettura, ricordandoci di scrivere nel 
P.RB. solo valori atti a pilotare i BIT 
4 5 6 7. 

Questo mese presentiamo una 
semplice e funzionale scheda ca- 
pace di aprire e chiudere degli in- 
terruttori e ij relativo software per pi- 
lotarla. 

L 'Hardware 

La scheda è stata realizzata con 
pochissimi componenti tutti di faci- 
le reperibilità e basso costo. 

L T hardware è composto da otto mo- 
duli identici e di un modulo alimen- 
tazione, tutti i componenti compre- 
so il trasformatore di alimentazione 
sono montati su di una basetta di 
1 9,5 x 1 0 mm. Le uscite del tuo 64 
verranno collegate ognuno a altret- 
tanti ingressi della scheda. Quan- 
do in uno degli 8 pin (C D,E F H J 
K L) si presenterà una tensione al- 
ta il transistor che è collegato a quel 
pin farà da interruttore permetten- 
do l'eccitazione del relè e la conse- 
guente chiusura del contatto. 

I transistor sono dei BC 147 A nes- 
suno vieta però di utilizzare altri 
transistor simili. 

Qualche parola va spesa per i relè. 
Noi in questa scheda abbiamo 
montato dei relè di bassa potenza 
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chi volesse commutare carichi di al- 
to assorbimento non dovrà far altro 
che collegare a ogni relè un relè ag- 
giuntivo rispondente alle caratteri- 
stiche di assorbimento richieste. La 
bobina dei relè che monterai nella 
scheda non dovrà essere di valore 
inferiore a 50 OHM, meglio se il va- 
lore è di 90 OHM, 

Collaudo della scheda 

Dopo aver montato tutti i compo- 
nenti guarda attentamente se per 
caso non hai commesso errori. 
Attenzione alfa polarità dei diodi e 
dei transistor. 

Se tutto è montato al posto giusto 
e nel verso giusto puoi iniziare il 
coi la udo. Prendi un tester e dopo 
aver dato tenzione alla scheda con- 
trolla se su CI vi siano 5 Volt dopo 
di ciò prendi uno spezzone di filo di 
rame e collegalo al polo positivo 
deila alimentazione, adesso appog- 
gialo sulle entrate della scheda, I 
relè dovrebbero eccitarsi se così 
non è spegni tutto e ricontrolla, for- 
se f transistor sono stati montati aE 
rovescio. 

Quando tutto funziona collega il 
connettore, attento a col legare f fili 
al posto esatto, e avvia le prove con 
il 64. 

Attenzione: 

Non coliegare mai la scheda quan- 
do il computer è acceso . 

Il Software 

Il programma di gestione è struttu- 
rato a moduli; questo sia per per- 
mettere una maggiore leggibilità sia 
per facilitare eventuaii modifiche e 
aggiunte. 

Tutto il programma ruota attorno ad 
una piccola procedura (MAIN) che, 
a sua volta secondo ì comandi rice- 
vuti dairutenfe, richiama tante pic- 
cole subroutìne. 

Appena lanci il programma (RUM) 
il 64 visualizzerà un menù con tut- 
te te opzioni offerte. 

Molto probabilmente userai la pri- 
ma “programmazione”. Dopo aver 
premuto FI appariranno 8 caselle 
di eguale grandezza, numerate da 
0 a 7, e una lampadina lampegge- 
rà nella casella 0. Il lampeggio sta 
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ad indicare che il computer aspet- 
ta il comando- Ognuna di queste ot- 
to caselle raffigura una porta del 
tuo 64, la lampadina accesa nella 
rispettiva cella, indicherà fa chiusu- 
ra del rispettivo interruttore nella 
scheda in fase di esecuzione. Se 
adesso premi Return la lampada 
resterà accesa nella prima casella 
e passerà alla posizione successi- 
va, se premi la barra invece passe- 
rà solo alla casella successiva. 
Dopo aver definito il passo non re- 
sterà che definire il tempo per cut 
dovrà restare attiva questa configu- 
razione. 

L'unità di misura è il secondo. Il va- 
lore verrà Impostato digitando sui 
tasti numerici, verranno accettati 
valori non superiori a 999999 se- 
condi. Se hai necessità di avere 
unità di misura diverse non dovrai 
far altro che diminuire o aumenta- 
re il valore di TX. Questa variabile 
è definita nella prima riga di pro- 
gramma. 

Se sei soddisfatto del passo già de- 
finito premi semplicemente Return 
passerai alla definizione del suc- 
cessivo. Se invece non ti piace pre- 
mi space e rimposta tutto. 
Quando il numero dei passi è suffi- 
ciente per i tuoi scopi premi la frec- 
cia che punta a sinistra e ritornerai 
al menù. 

Le altre opzioni ti permetteranno di 
rivedere e correggere i passi già fat- 
ti, registrarli e rileggerli e infine di 
creare automaticamente una se- 
quenza casuale, 

Quest’ultima opzione si presta a 
molteplici usi Potresti generare 
una sequenza che ti accenda ca- 
sualmente le luci di casa o casual- 
mente accenda * faretti della tua di- 
scoteca ecc. Premendo F6 il 64 ti 
chiederà il tempo minimo e massi- 
mo che dovrà assumere ogni pas- 
so e la percentuale di probabilità di 
chiusura di ogni contatto. Se ad 
esempio nella casella 0 metti la pro- 
babilità a 100 fa lampada resterà 
sempre accesa per tutti i cicli. Vi- 
ceversa se la probabilità è 0 reste- 
rà sempre spenta. Ovviamente 
questi sono i due casi limite la per* 
centuale può essere qualunque ba- 
sta che sia compresa tra 0 e 1 00, 
valori maggiori verranno considera- 


ti 100 valori minori 0. 

La possibilità di definire la percen- 
tuale di possibilità di chiusura di 
ogni contatto toma utile per simu- 
lare ancor meglio la presenza di 
gente in casa. 

Per rendere la simulazione più af- 
fidabile dovremo mettere una per- 
centuale alta sui relè che comanda- 
no le luci degli ambienti più fre- 
quentati (soggiorno, cucina) bassa 
nelle altre (bagno, sgabuzzino, sog- 
giorno). 

Se durante l'esecuzione si esauri- 
scono tutti i passi il sistema non si 
ferma, ma ripeterà l'intera sequen- 
za partendo dal passo 0. 

Altri comandi sono descritti chiara- 
mente nelle belle maschere che ar- 
ricchiscono il programma. 
Passiamo adesso ad una descrizio- 
ne un po' più dettagliata del pro- 
gramma, che per la maggior parte 
risulterà noiosa e inutile in quanto 
il programma è di facile compren- 
sione e estrema semplicità, ma per 
r rimanenti risulterà utile per una 
maggiore comprensione del lin- 
guaggio e della macchina. 

Riga 1120 Definizione del numero 
massimo dei passi e del fattore mol- 
tiplicativo dì esecuzione. Cambian- 
do il valore della prima variabile si 
avrà un aumento o una diminuzio- 
ne del numero dei passi, variando 
il valore della seconda si cambierà 
l'unità dì misura dei tempo. 

Riga 1125 La prima POKE stabili- 
sce che tutte le porte siano in usci- 
ta, la seconda setta tutte le porte al- 
lo stato basso. 

Riga 1 126. Realizzo per tutti ì tasti 
un repeat automatico. 

Riga 1 1 50. Leggo ì data che com- 
pongono la sprite e li inserisco tra 
la locazione 832 e la 894. 

Nota bene, se prevedi di utilizzare 
il tape per registrare le sequenze 
create dovrai memorizzare il tuo da- 
ta altrove ad esempio nel blocco 
200 allocato da 12800 fino 12863. 
Riga 1 160. Definisco i puntatori del- 
le 8 sprite in questo caso tutti pun- 
tano al blocco 13. 

Riga. 1240-1320. Qui si decide a 
secondo del comando ricevuto qua- 
le routine eseguire. 

Riga 1590-1680. Stabilisco in che 


posizione dovranno accendersi le 
sprite. 

Riga 2190. Registro di colore di cia- 
scuna sprite. A ogni ciclo stabilisco 
quale sprite deve essere accesa ©d 
insieme alla istruzione sulla riga 
2240 realizzo una variazione di co- 
lore nella sprite (bianco/nero). 
Riga 2260. Trasformazione della 
sequenza da binaria (1 1001 100) in 
decimale. 

Questo valore utilizzato alla riga 
2190 permette di selezionare le 
sprite da accendere. (POKE 
53269,0 tutte spente, POKE 
53269,255 tutte accese). 

Riga 3160-3260. In queste righe 
viene calcolata la durata del ciclo 
usando la formula: 

Durata - Int (RND (1) * (Max- 
Min) + Min) 

(RND è una funzione che genera 
un numero pseudo-casuale com- 
preso tra 0 a 1). 

La probabilità di accensione è rea- 
lizzata tramite la condizione 
(RND(1) * 100 (pa(J)) se questa 
condizione si avvera la porta pas- 
sa a livello alto se no resta bassa. 
La probabilità varia con il variare di 
PA(J». 

Riga 3640. Prima di caricare la se- 
quenza su periferica viene cancel- 
lato un eventuale file esìstente con 
il medesimo nome del file che si sta 
per registrare. La variabile messa 
tra due segni di somma contiene il 
nome del file. 

Riga 3860. Incrementa l'indice del- 
la matrice PR fin tanto che non tro- 
va il valore 0 nella colonna che rap- 
presenta il tempo. 

Letto il valore del tempo viene mol- 
tiplicato per una variabile TX fissa- 
ta airintzìo del programma. 

Riga 4080. Qui viene sommato il 
valore del tempo ad una variabile 
di sistema TI, 

Questa variabile viene incrementa- 
ta ogni sessantesimo di secondo 
dal momento dell'accensione del- 
la macchina. La somma delle due 
variabili ìndica il valore che TI de- 
ve raggiungere affinché scatti il ci- 
clo successivo, A questa somma 
dobbiamo sottrarre un numero. Per 
\\ mio computer è 1 1, ma per il tuo 
può variare di qualche unità. Que- 
sto numero servo a correggere de- 
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Elenco componenti 

RI - R16 Resistenza 4100 1/4 watt 

DI-D8 - Diodo ÌN4148 1/4 watt o simile 
CI - Condensatore 2200 juF 16 V 
C2 - Condensatore 0.01 juF poliestere 
Q1 - Q8 - Trasistor BC 147 A o simile 
RZ - Raddrizzatore 1 Amp 20V 
IC - Integrato juA 7805 
IR - Trasformatore 6V IA 
RII - RL 2 - Relè 6V 90-50 
-usidile 3 ma 


Varie 

Portafusibile DA c.s. 

Aletta di raffreddamento 
Connettore 12 4 12 per C.S. 
Bosetta ramala 10 x 20 
Trecciola multicolore 9 capi 
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gli errori apportati dal ritardo dato Con 1 1 il 64 usato nelle prove ap* Riga 4090. Genera un break fintan- 
dalla stampa sul video di alcuni va* portava un errore di 1/2 decimo di to che non si eguagli II al valore fi* 
ioti, secondo ogni ora. ne. 



connettore 
por cartuccia 


AUDIO VIBRO f Porto seriale 
imput 
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Piste da utilizzare 


1090 REM #***##>H*****#im##*#*a|5*## 


1610 REM W * 
1020 REM * OUTPUT PROGRAM * 
10:30 REM * % 
1040 REM * IH * 
1058 REM * * 
1860 REM * ERNESTO RENZO * 
1070 REM * & *■ 
1080 REM * SI DOTI ZONIN * 
1090 REM * * 


1100 rem 
1110 : 

1120 PS=1800 : TX=60 


1125 POKE 56579,. 255 : POKE 56577,8 

1126 POKE 650, 128: REM #REPEftT TRST 
I* 

1130 DIN PR < PS , 1 > 

1 1 40 CC$= " C B I ANCO ITINE": C 1 ** " 

: PflSSO-0 

1150 POR fl=832 TO 894 : READ E : POKE 
fi, E : NE NT 

1160 FOR fi=0 TO ?:R0KE 2640+fl, 13=H 
EXT 
1170 : 

1180 REM *****^*ìf:**i+i***if:**+'****#*?|6 
1190 REM * * 
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1200 REM # MAIN * 

1216 REM * * 

1220 REM iti#****#*#*##*###*####*##* 
1230 = 

1240 GOSUB 1320 

1256 IF Ii$=CHR$<133> THEN PA=0:GOS 
UE 1400 : GOSUB 2133 
1260 -IF D$*CHR$< 134) THEN GOSUB 14 
00: GOSUB 3560 

1270 IF D$*CHR$ < 1 35 > THEN GOSUB 14 
00: GOSUB 2650 

1280 IF D$=CHR$< 136) THEN GOSUB 3 


790 

1290 IF Iif=CHR$U37> THEN GOSUB 3 
600 

1300 IF B$=CHR$< 138) THEN GOSUB 4 
220 

1310 IF D$=CHR$<139) THEN GOSUB 2 
910 

GOTO 1240 


1328 

1330 

1348 

1350 

1360 

137@ 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 
1 536 


REM #*#*###***########*#*### 
REM * t 

REM * MfiSCHERFl CON LAMPADE * 
REM # * 

REM ************************ 

POKE 53269,0 

PR I NT " C CLEfiR K B I ANCO 1" ■ POKE 5 
3280, 12: POKE 53281,12 
PRI NT "[DONNI PASSO" 

PR I NT " 

PR I NT " C DOWN 3 VALORE " 

PRINT" " 

PRINT" [HOME! CBLEU] " : FOR fi=l T 
0 3 : PRINT" [DONNI” : NEXT 
PRINT" r t- -r -T T -r 


PRINT"! 7 ! 6 I 5 ! 4 I 3 1 2 
11101 "CC$" CBLEU3 I " ; 

PRINT" h 4 4 4 4 4~ 

-4 4 4 H " ; 

FOR R=1 TO 4 

PRINT"! I I f I t 

! 1 1 r; 

NEXT 
PRINT" *- 


1546 : 

1559 REM #***#**#**#***#*#**# 

1560 REM # POSIZIONE SPRITE * 


1570 

15SQ 

1590 

1600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 
1630 
1690 
1700 
1710 
1720 
1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 


1830 


1840 

1850 

1860 


1870 

1889 

1890 
1900 


1910 

1920 

1930 


1949 

1950 


REM #*###*#***#*#**##*#* 

POKE 53277,0: POKE 53271, 0:V=I 
POKE 53264,1 

POKE 53248,0: POKE 53249, V 
POKE 53250, 224: POKE 53251, V 
POKE 53252, 192: POKE 53253, V 
POKE 53254 ,160: POKE 53255 , V 
POKE 53256, 129: POKE 53257, V 
POKE 53253, 96 = POKE 53259, V 
POKE 53260, 64= POKE 53261, V 
POKE 53262, 32 : POKE 53263, V 
REM ###### #######* ########* 
REM # COLORE DELLE SPRITE * 
REM ###*#*################# 

FOR XL=0 TO 7= POKE 53287+XL, 1 

: NEXT 

RETURN 

REM #*#**#####**######### 

REM * * 

REM * MENU' * 

REM * * 

REM #*####**#**########## 


PR I NT " [ B I ANCO ] Z CLEAR 3 " : POKE 5 
3280,0: POKE 53281,0 

PRINT" i 



PRINT"! PROGRAMMA GEST I ONE POR 
TE DI USCITA <C>r; 


PR J NT " r 

V'; 

FOR R=@ TO 15 
PRINT" ! 

I 

NEXT 

PRINT" * 1 

j»j 

PRINT" [HOME]" 

PRINT" [5 DOWN] [3 RIGHT1F1 )PRO 
GRRMMAZIONE" 

PRINT " C DOWN 3 C3 RI GHT 3 F3 } ESECU 
ZI ONE" 

PR I NT " [ DOWN 3 [ 3 R I GHT ] F5 ) VER I F 
I CFT 

PR I NT " 1 DOWN ] L 3 R I GHT ] F7 > CflR I C 
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AMENTO" 

I960 PRINT" [DOWN3 [3 RIGHT3F2) SALVA 
T AGGIO" 

1970 PRINT" CB0WN3 C3 RIGHT]F4)FIHE" 
1930 PRINT " [DOWN 3 C3 RIDHTTF6 i-'RANDO 
M" 

1998 POKE 53269.. 1 :R0KE 53277/1 -POK 
E 53271/1 

2008 POKE 53248/ 255 1 POKE 53240. 128 
2810 POKE 53287,. 1 : FOR R=1 TO 50 ■ NE 

XT- 

2020 OET D$ : IF D$="" THEN 2050 
2030 IF D$<CHR$< 133) OR W>CHR*<13 
9) THEN 2850 
2048 RETURN 

2858 POKE 53287/0: FOR fi=i TO 50= NE 
XTiGOTO 2810 
2860 : 

2070 REM ******************* 

2080 REM * * 

2090 REM * INPUT * 

2100 REM * * 

2110 rem ******************* 

2120 : 

2130 Ol : B=1 : 2=0 : TM$=" " 

2140 PRINT" C HOME 3 IBI ANCO 1 I 2 BONN 3 C 

5 RIGHT3 "PASSO; " 

2150 PRINT"! HOME 3 IBI ANCO 3 [ 5 BONN 3 I 

6 RIGHT3 

2160 PRINT TREK 33) " [5 DOWN 3 
2170 NI =13 : GOSUB 3510: PRINT" COHF 
ERMI ? SKRETURN> NOCSPfl 
CE> " 

2180 FOR A=0 TO 7 
2190 POKE 53269/ B+Z 
2208 POKE 53286+0/ PFOR W=1 TO 18 
NEXTW 

2210 GET KS : I F K*="" THEN 2240 
2220 IF K$=CHR;J< 13) THEN Z=Z+B : GOT 
0 2260 

2230 IF K$=CHR$<32> THEN 2260 
2240 POKE 53286+0/ 0= FOR J=0 TO 10 : 
NEXTJ 

2250 GOTO 2190 

2260 E=B*2 : C=C+1 ; NEXTR 

2270 POKE 53269/ Z 

2230 PR I NT " t HOME 3 C B I ANCO 3 r 5 DOWN 3 E 
6 RIGHT3 "Z; " 

2290 : 

2300 REM ******* ********* 

£310 REM * TIME * 


2320 REM **************** 

2330 ^ 

2340 KL=1 

2350 TM$=" " : KL=1 : REM AZZERAMENTO 
TIME 

2360 PRINT" E HOME 3" 

2378 PRINT TAB<34) "C7 DOttO “Cl* 
2380 IF KL>6 THEN 2490 
2390 GET VV$: IF VV$="" THEN 2460 
2480 IF VV$=CHRÌ(13) AND <KL=1> TH 
EN TM$=" 18" : GOTO 2490 
2410 IF VV$«CHR$<13) THEN 2490 
2420 IF ASC<VV#)<48 OR ASC<VV$)>57 
THEN 2460 

£430 TM$=TM$+VV$ : KL=KL+1 

244tì PR I NT " [ HOME ]" : PRINT"C8 DOWN 3 " 

2450 PRINT TAB<40-KL)TM$ 

2468 PRINT "[HOME 3" 

2470 PRINT TABC34)" C7 B0WN3"CC$ 
2480 GOTO 2360 
2490 PRINT "[HOME 3" 

2500 PRINT TAE<34) " [7 B0WN3"CC$ 
2510 NI = 13 : GOSUB 3510: PRINT" CONF 
ERMI ? SKRETURN} NOCSPfi 
CE> " 

2528 NI =15= GOSUB 3510: PRINT" 

0> PER USCIRE " 

253@ GET KK$ : IF KK$="" THEN 2538 
2540 IF KK$=CHR$<13) THEN 2598 

2550 IF KK$=CHR$C32> THEN 2630 

2560 IF KK*="<-" THEN 2599 

2570 GOTO 2530 

2589 GOTO 2138 

2590 PR < PA / 0 > =Z : PR < PR / 1 > = VAL <TM$) 
2680 PR < P A .. 0 ) =Z : PR ! PO / 1 ) = VAL < TM$ > 
2618 PAS3G=Pfl+l 

2629 IF KK$= " +■" THEN RETURN 

2630 GOTO 2130 
2640 : 

2650 REM ***************** 

2668 REM * * 

2678 REM * VERIFICA * 

2638 REM * * 

2690 REM ***************** 

2709 : 

2710 Pfl=0 

2720 PRINT" [BIANCO] VERIFICA" CUP 
3" 

2738 Nl=13 : GOSUB 3510 : PRINT" [BIANC 
03 <+>AVANTI <-> INDIETRO < 
EOEDITA " 
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co co co co co co co co co co f'O no no no no no no ro ro no no no no no no no no no no no no no no no no 

£0 ( 2 S <£■ ® <3 © © 63 CD CO i£t co 1,0 'o co co CO CO CO CO CO Oj CO CO CO CO 00 CO -■■] “ J “ I N >1 

co co - .j iTj cj\ _i^ ìjj no i.£i co ~ i ij’j cn 4 * co no 4 gd ] -ù co “0 oo cjì 4 ^ co noi ^ '.jzi co 00 cn 


2740 FRI NT THB(12)"[2 BOWNK+> PER 
USCIRE 

POKE 53269, PR<PR,8> 

PR I NT 1 ' E HOME U LEI RNCO I L 2 BONN ] Z 

5 RIGHT] "PASSO! " CLERI] 

PR I NT " Z HOME 3 C E I ANCO ] C 5 DOWN 3 E 

6 RIGHT3 “PRCPfl, 0> ; " [LESTI 
FRI NT TRE <33 V’C 5 BONN] 

PRINT TAE<33> " C2 UP]"MID*<STR 
$ < PR < FA , 1 } , 2 , 7 ì 
GET D$ : IF D$="" IH EH £390 
IP d$="-" FINII PA>0 THEN 
PB=PA-1 

IF 11*=“ + " AND PACIOSO THE 
N Pfl=Pfl+ 1 

IF D$="E" THEN GOSUE 2138 : GOS 

UB £370 

IF !!■$="+“ THEN POKE 650,0 :R 
ETURN 

FOR l = l TO 10 :.H.EXTI 
GOTO 275(3 

Nl=13 : GOSUE 35 1 0 : PR I NT " C+ 

>AVRNT I .<-> IND I ETRO <E>ED I Tfi 

11 

PRINT TRE < 12,rO OHM 3 CO PER U, 
SCIRE " 

RETURN 

REM #*******'**?HS(f**‘***5f* 

REM * $ 

REM * RANIiOM * 

REM * * 

REM *.*#***#*#$****&***# 

POKE 53269, 0 : POKE 53288, 12 ■ PO 
KE 53231,12 
P R I NT " E CLEAR 3 E E I ANCO 3 " 

PRINT" IiURHT A M I N I MFJ C I CLO " : PR 
INT 

PRINT "DURATA MASSIMA CICLO" 

PRINT" [ ELEO 3 f t 

1 

FOR V=0 TO 6 
PRINT" I LAMPADA I XI 

PRINT" V H 1 

ne:kt 

PRINT" I LAMPADA I XI 

pRIHT „ l_~ -L J 

PRINT" E HOME]" 

PR INT TAB < 28 ) ■ LM=6 : GOSUE 3238 
=MIW=S 


3100 PRINT : PRINT TAB<21 >■ GOSUE 323 
0 : MAH =8 

3110 FOR 1=0 TO 7 

3120 PRINT: PRINT TAE<8)I; 

3 1 3 0 PRINT THE <1 2 > : LM=3 = GQSUB 3280 
:RA<I)=S 
3140 NE NT 

3150 FRI NT "[DONNI QUANTI CICLI 7 "/ 

: LM=6 ’ GOSUE 3288 ■ Ol=S 
3160 FOR 1=8 TO CI-1 
3170 PR ( 1 , 1 )-INT < RN D < 1 > * < MAX-M I N > + 
MIN) 

3180 T1=0 

3 1 90 PR I NT " [ HOME 3 " : N 1 = 1 0 : GOSUE 35 1 
0: PRINT TAB < 22 > ! 

328 0 PRINT" C I CLO NÙMERO "li 
3210 FOR J=0 TO 7 
3220 IF <RNDa>*100CPfl<J>> THEN Tì 
=T 1 +2 tJ 
3230 HE NT 
3240 PR< I , 0>=T1 
3250 NEXT 
3263 PRU, 1>=0 
3261 RETURN 
3270 : 

3230 REM 

3290 REM * * 

3308 REM * INPUT NUMERI * 

3310 REM $ * 

3320 rem MMmwwwmm 

3330 : 

3340 $$="" 

3 350 PR I NT " [ E I ANCO 1Z RVOFF 3 > [ LEFT 3 " 

3360 GET L$ : IF L*=" " THEN 34 IO 
3370 IF L±=CHR*<13> THEN 3420 
3330 IF LÌCCHR* < 48 > OR L$>CHR$<57> 
THEN 3360 

33N0 !~*=o*+L$ : PR 1 N T L* .■ 

3400 IF LEKKSf > =LM THEN 3428 
34 1 0 PR INT " L RV S 3 > E LEF T 3 " ; : GO T 0 335 
0 

3420 PR I NT " " : S= VAL < S* ) 

3430 RETURN 
3440 : 

3458 REM ***************** 

3460 REM * * 

3478 REM * POS. VERTICALE * 

3488 REM * $ 

3498 REM WWW *# ********* 

3508 ■ 
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3510 PRIHT" [HOME] " 

3520 FOR BH=1 TQ HI : FRI NT : NEXT : RET 
URN 
3530 ■ 

3540 REM *#***#*$#***#** 

3550 REM * * 

3560 REM * SALVATAGGIO * 

3570 REM * * 

3530 REM *************** 

3530 : 

3600 PR I NT " E CLE AR 3 " : POKE 53280,12: 

POKE 53231 , 12 
3610 Nl=10 : GOSUB 3510 
3620 INPUT " NOME DEL FILE" ;NF$ 
3630 OPEN 15,8,15 
3640 PR1NTS15, "3: "NF*"" 

3650 CLOSE 15 

3660 OPEN 2 , 8 , 2 , " 0 : " +NF $+ " , 3 , W " 
3670 J-0 

3680 PR I NT#2 , PR < J , 0>CHR* < 1 3 )PR < J , 1 
>CHR*<13>; 

3680 J=J+1 

3700 IF PRCJ, 1)00 THEN 3680 
3710 CLOSE 2: RETURN 
3720 : 

3738 REM *************** 

3740 REM * * 

3750 REM * CARICAMENTO * 

3760 REM * * 

3770 REM *************** 

3780 : 

3780 POKE 53263,0 

3800 PR I NT " [ CLEPIR 3 " : POKE 53280 ,12: 

POKE 53281,12 
3810 N 1 = 1 0 : GOSUB 3510 
3820 INPUT " NOME DEL FILE" , NF$ 
3330 OPEN 2,8,2, "0: "+NFS+",S,R" 
3840 11=0 

3850 I NPUT #2 , PR <1 1 , 8 > , PR <1 1 , 1 ) 

3860 IF PRCI 1,0)00 THEN 11 = 11 + 1 : G 
OTO 3350 
3370 CLOSE 2 
3880 RETURN 
3880 : 

3900 REM ************** 

3810 REM * * 

3920 REM * ESECUZIONE * 

3830 REM * * 

3940 REM ************** 

3950 : 

3860 POKE 56578, 255 : REM SETTA IH 


"OUT" 

3870 FRI NT" " ; " C B I ANCO ] ESECUZ I ONE " 
3888 PRIHT TAB<13>"C4 D0WN3O> PER 
USCIRE" 

3A30 1=0 

4000 TEMPO= I NT < PR (1 , 1 >#TX> 

4010 IF TE=0 THEN 3880 

4012 FRI NT" [HOME 3 [2 DOWN OC 6 RIGHT3 

ti 

4020 PR INT " E HOME ] C B I ANCO K 2 DO UN 3 E 
er R I fiHJ 3 M I j M 11 

4830 PRINT" CHQME3CBIANC03E5 DOWN 3 E 
6 RIGHT3"; " ";"C4 LEFT3"JP 

R<I,0> 

4040 PRINT TABC33) " C5 DOWN 3 
4050 PRINT TAB<33)"C2 IJP3 "MIMCSTR 

$<pr< i , 1 y > , 2 , ?> 

4069 POKE 56577 , PR <1 , 0 > 

4870 POKE 53268, PR a, 0> 

4080 FINE-TI+TE-11 

4080 IF TKFINE THEN 4080 

4100 1=1+1 

4110 IF I=PS+1 THEN GOTO 3890 
4120 GET D$ : I F »*-“«■" THEN RETU 
RN 

4130 GOTO 4800 
4148 RETURN 
4150 : 

4160 REM ********** 

4170 REM * * 

4180 REM * FINE * 

4188 REM * * 

4280 REM ********** 

4218 : 

4220 POKE 53268 , 0 : PR I NT " L CLERR 3 " : N 
1 = 1 1 : GOSUB 3518 

4230 PR I NT TAB <12) " ARR I VEDERC I ! ! " 
4240 END 

4250 DATA 0,124,0,1,131,8,3,0,182, 
6 

4260 DATA 0 , 86 , 1 2 , 8 , 48 , 24 , 68 , 24 , 25 
,171 

4270 DATA 152,24, 145,24,24, 129,24, 
12,66,48 

4280 DATA 6, 36, 86, 3, 36, 192, 3, 255, 1 
28,3 

4290 DATA 255,128,1,1,0,3,255,128, 
1,1 

4306 DATA 0,3,255,128,1,69,0,0,68, 
0 

4310 DATA 8,56,0 
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BED 

BINARIO * ESADECIMALE * DECIMALE 



Le civiltà che si sono susseguite 
dall'antichità sma ai nostri giorni 
hanno adottato svariati metodi di 
rappresentazione numerica. 

La scelta dì una rappresentazione 
rispetto ad un'altra è originata dal- 
le particolari esigenze che debbo- 
no essere soddisfatte nei corso del 
suo utilizzo. 

Le prime popolazioni terrestri era- 
no solite rappresentare graficamen- 
te, un certo numero di oggetti, me- 
diante dei segni incisi sul legno o 
sulla pietra. 

Esempi più recenti testimoniano if 
largo sviluppo di rappresentazioni 
numeriche diverse da quella che 
usiamo attualmente con maggiore 
frequenza: la base T0> 

Nella scelta di una determinata op- 
portunità rispetto ad un'altra, inci- 
de soprattutto la sua capacità di 
adattamento a ciò che si utilizza per 
quantificare un certo numero di ele- 
menti: probabilmente oggi sarem- 
mo maggiormente portati ad usare 
la base 20 se piuttosto dì 10 fossi- 
mo stati in possesso dì un numero 
doppio di dita. 

Questo discorso ha una particola- 
re validità nei confronti di una disci- 
plina come C informatica: analizzia- 
mone ì motivi, 

Ogni calcolatore, durante il suo fun- 
zionamento, gestisce una notevo- 
le quantità d » informazioni. 

La rappresentazione interna di que- 
ste informazioni avviene In forma- 
to binario a causa degli elevati co- 
sti che imporrebbe una scelta non 


ristretta a due soli stati: zero oppu- 
re uno. 

Le più piccole informazioni rappre- 
sentabili sono i bit {detti anche di- 
git binari), essi vengono solitamene 
te aggregati a gruppi di otto che 
vengono denominati byte. 

Ritengo opportuno, per coloro che 
non se ne ricordassero, richiama- 
re la definizione dì base numerica. 
Prendiamo come riferimento ta ba- 
se 10 che è quella normalmente 
usata nei nostri calcoli quotidiani, 

I sìmboli grafici fondamentali utiliz- 
zati nei sistema decimale sono i se- 
guenti: 0, 1, 2, 3, 4, 5, 6, 7 , 8, 9. 
In un sistema di questo tipo, if va- 
lore di un simbolo grafico fonda- 
mentale è funzione della sua posi- 
zione all'Interno del numero. 


li metodo di conta in tale sistema è 
Il seguente: 

a) tutti i simboli devono essere con- 
siderati sequenzialmente da 1 sino 
a 9 

b) se la quantità da contare è su- 
periore a 9, tutti E simboli devono 
essere considerati nuovamente a 
partire da 0 e deve essere effettua- 
to il riporto, cioè si deve sommare 
1 alta cifra immediatamente alia si- 
nistra (quella delie decine) 

e) se la cifra delle decine raggiun- 
ge il valore 9, il procedimento ora 
descrìtto deve essere ripetuto ed il 
riporto va effettuato sulla cifra im- 
mediatamente alla sinistra (quella 
delle centinaia) 

d) il procedimento va ripetuto sen- 
za alcun a limitazione sul numero 
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delle cifre interessate. 

In conseguenza di ciò che è stato 
detto il numero 8352 è la rappre- 
sentazione simbolica di: 8 per 10 
elevato al cubo più 3 per 10 eleva- 
to al quadrato più 5 per 1 0 elevato 
alla prima più 2 per 10 elevato allo 
zero. 

8x 10 elevato a 3 = 8 x 1000 + 

3 x 10 elevato a 2 : = 3 x 100 + 

5x10 elevato a 1 - 5 x 10 + 

2x1 0 elevato a Q - 2 x t + 

8352 

Per quanto concerne la numerazio- 
ne binaria il discorso è del tutto 
analogo a quello precedente, te- 
nendo però conto del fatto, che le 
cifre disponibili sono due, 0 e 1 , e 
quindi il riporto dovrà essere effet- 
tuato quando si giunge a 1. 
Discorsi del tutto analoghi riguarda- 
no il sistema esadecimale che si av- 
varrà, in più rispetto a quello deci- 
male, delle cifre A, B, C, D, E, F, 
Passiamo ora all'analisi de! listato 
che consente sei diversi tipi di con- 
versioni tra i tre sistemi in esame: 
decimale, binario e esadecimale. 
Nelle linee comprese tra 1 50 e 230 
viene creata la mascherina iniziale 
del programma. 


Le righe da 270 sino a 430 costitui- 
scono la routine di input controlla- 
to: essa consente di impedire l'en- 
trata di elementi incompatibili con 
il sistema oggetto di INPUT. 

Se ad esempio vogliamo effettua- 
re una conversione da esadecima- 
le nei due altri sistemi di numera* 
zione, non verranno accettati sìm- 
boli diversi da quelli appartenenti al 
seguente insieme: 

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, 
O, E,F 

La locazione dì memoria 204 posta 
a 0 consente dì ottenere il cursore 
bi stabi le (lampeggiante). Esso si 
troverà nella posizione di memoria 
immediatamente seguente a quel- 
fa delf ultima PR1NT. 

La routine di input controllato vie- 
ne creata avvalendosi dei codici 
ASCII dei caratteri e delle istruzio- 
ni strìnga disponibili sui Commodo- 
re 64. 

Il rango numèrico consentito per le 
conversioni di ogni sistema è il se- 
guente: 


decimate 0 939999999 
esadecimale 0 FFFFFF 

binano 0- 111111111111111111111111111111 


Valori superiori a quelli citati non 
verranno presi in considerazione, 
questa limitazione è dovuta ai pro- 
blemi di precisione ohe coinvolgo- 
no il microprocesso re del compu- 
ter. 

Voglio trarre spunto da questo pro- 
blema per annunciare ohe in un 
prossimo numero verrà affrontato il 
discorso della N precisione, esso ri- 
sulterà particolarmente interessan- 
te per tutti coloro che hanno esigen- 
ze di maggiore precisione (gran- 
dezza) sul proprio computer. 

Le linee da 460 a 525 consentono 
le conversioni da decimale in esa- 
decimale e da decimale in binario. 
Queste conversioni avvengono, ri- 
spettivamente, tramite delle suc- 
cessive divisioni per 16 e per 2. 
Le righe da 555 a 600 permettono 
i cambiamenti di base da esadeci- 
male in decimale e da esadecima- 
le in binario. 

La seconda conversione viene ef- 
fettuata passando attraverso il pas- 
saggio intermedio del decimale. 
Le linee da 630 a 645 effettuano la 
conversione binario in decimale e 
da binario in esadecimale. 

La seconda delle due viene an- 
eli 'essa effettuata passando attra- 
verso io stadio decimale. 


100 REM 


105 REM $ # 
110 REM * CONVERSIONI NUMERICHE * 
115 REM * * 
120 REM * DI EUGENIO C0PPRRI * 
125 REM $ $ 
130 REM * VIR VIGflNO' 4 CMILRNQ) * 
135 REM % * 
140 REM % TEL : 659. 11,52 * 
145 REM * * 


150 REM 3k3kl|G3|E3|E3ka|GI|Ìl|E3|E463|E3|Cift3tE3kl|l3|llk#3|n|GJ|fi3feak3|e 
155 PRINTCHRiC 147) 

160 G$»" RECDEF" 

165 R0KE 53280,8 POKE 53281,0 

170 PRINT TREC9) T 

T 

175 PRINT TflBO) M l ** CONVERSIONI 

%% p 

180 PRINT TREOV'l 


185 

190 

195 

200 

205 

210 

215 

220 


225 

230 

235 

240 

245 

250 

255 


LK=LK+ 1 : SDÌ ( LK > = 11 DEC I MRLE : 11 
LK=LK+1 : SB$<LK>~ 11 ESADECIMALE : 11 
LK=LK+i : 8DÌ<LK)="BINRR10 : " 

F0R TV=1 IO 3 

PRINT" [3 DOWN 3 1 — 


PRINT" CURII 


n 


i 


iH 


PR I NT " [ UP 3 1 

I" 

PRINT TRB(C SGN<TV>-l>#100+40> 
; "E4 UPHRIGHT]"; SD$<TY> 

NEXT 

PR I NT " [ HOME 1 E 3 SONNI " '> TflB<210 
>POKE 204j0'R$="D" 

REM ################*######### 


REM # # 
REM # ROUTINE DI INPUT * 
REM # # 
REM # CONTROLLATO * 
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260 REM * * 

265 REM #####**##*#**####*###***#;♦: 

270 GET B$ : IF B$="" THEN 270 
275 IF B*«CHR*<13> RND H*<>"" THEN 
POKE 204, 1 : PRINT" " ; ■ GOTO 375 
280 IF LEN<R$>=3 THEN 270 
285 IF B$=" [DOWN] " RND Rf='"‘ THEN 
POKE 204,1= PRINT" " ; GOTO 300 
290 IF CRSC<B$><48 OR RSC(B*)>57> 
THEN 270 

295 R$=R$+B$:RRINTB$; :GOTO 270 
300 PRINT TRE < 173) ; : POKE 204,0:R$= 

|i|_|M 

305 GET Bt:IF B$=’’" THEN 305 
310 IF B$=CHR$< 13) RND R$0"" THEN 
POKE 204, 1 -PRINT" ";:GOTO 375 
315 IF LEN(R$)=7 THEN ' 305 
320 IF B$=" [DONNI " RND THEN 

POKE 204, 1 : PRINT" *':GOTO 340 
325 IF B$=" EUR] " RND 81="" THEN PO 
KE 204, 1 : PRINT" ":GOTQ 230 
330 IF <CRSC(Bf )<48 OR RSC<E$)>57> 
RND <RSC<B$X65 OR RSC < B* ) >70 
>) THEN 305 

335 R$=R$+B$ : PRINTBÌ ; : GOTO 305 
340 PRINT TRBaS9); ; POKE 204,0:R$= 

11 g tt 

345 GET B$ ■ IF B$='"‘ THEN 345 
350 IF B*«CHR$a3) RND «<>"" THEN 
POKE 204, 1 : PRINT" M j:GOTO 375 
355 IF LEN<R$)=29 THEN 345 
360 IF B$=" [URI" RND R$="" THEN PO 
KE 204, 1 : PRINT" “ i "CH0MEH5 DO 
UN]".: TRBC210) : GOTO 300 
365 IF <B$O"0" RND THEN 

345 

370 R$=fl$+E$ : PRINTB$, ; GOTO 345 
375 IF R$<>"D" THEN 400 
3S0 L= 2 fì=VflU fi* ) : GOSUB 46@ 

385 CL$= " " : L= 1 6 : fl=VRL C flS ) : GOSUB 46 
0 

390 GET UZ$ ; IF UZ$="" THEN 390 
395 RUN 

400 IF R$<>"H" THEN 420 
405 L=2 = GOSUB 555: GOSUB 525 
410 GET UZ$ : IF UZ*="" THEN 410 
415 RUN 

420 IF R$="F" THEN L=16 : GOSUB 630: 
GOSUB 525 

425 GET UZ$ : IF UZ*=" M THEN 425 
430 RUN 


435 REM a####*#*####*#*##*#######* 
440 REM ♦ # 

445 REM * CONVERSIONE: D/H - D/B * 
450 REM * * 

455 REM ****•*##*#**##*##*##*#*#*** 
460 Z=INT<fVai1<>) 

465 IF ZXL-l) THEN K«K+1=OOTO 46© 

470 GOTO 480 

475 K C K-1 : Z=INT Cfl/CLUO) 

48© IF L=2 THEN 509 
485 FOR VU=10 TO 15 
490 IF Z=VU THEN CL$=CL$+MID$ <Q$, V 
U-9 , 1 ) ; GOTO 505 
495 NEXTYU 

500 CL$=CL$+R I GHT J < STR$ C Z ) , 1 ) 

505 IF K=0 THEN 515 
510 R=fl-Z*<L1K> -GOTO 475 
515 IF L=16 THEN PRINT" CH0MEK13 D 
OWN3C 13 RIGHT] [RVS] " JCL* : RETUR 
N 

520 IF L=2 THEN PRINT" C HOME JC 18 DO 
WNK9 R I GHT ] [ RVS I " ; CL$ : RETURN 
525 PRINT" [HOME H8 DOWNK10 RIGHT] 
[ RVS 3 " J MI D* ( STR$ < V R > , 2 ) : RETURN 
530 REM ***#*#***'*#*##**#*#****#** 
535 REM # * 

540 REM * CONVERSIONE: H/D - H/B * 
545 REM * * 

550 REM Jlf*#####*###***############ 
555 I=LEN<fi*> 

560 FOR BW=1 TO I 
565 FOR TU= 1 9 TO 15 
570 IF M I B$ ( R$, DW , 1 ) =M I D$ < , TU-9 , 

1) THEN R=R+TU*< 16t< I-BW) ) : GOT 
0 595 

575 NEXTTU 
580 GOTO 59S 
585 NEXTDW 

530 fl=fl+VflL<MIDJ<fi$,DW, l>)*a6ta- 
DW>) 

595 IF DW=I THEN VR=fl:GOTO 460 
600 GOTO 585 

605 REM *#*##*##***#####***#»##*## 
610 REM # # 

615 REM * CONVERSIONE: b/D - B/H * 
620 REM * # 

625 REM **##*#******##*##******#*!♦! 
630 I=LEN<R$> 

635 U=W+ 1 : fl=R+VRL<M I D$ ( fi* , U , 1 ) >* <2 
ta-w)) 

640 IF W=I THEN VR=R : GOTO 460 
645 GOTO 635 


Commodore 3 1 



EQUAZIONE 
DELLA RETTA 
E SUA 

RAPPRESENTAZIONE 

GRAFICA 


dì Eugenio Coppa ri 


Unti li zzo del calcolatore nella ricer- 
ca matematica non sì limita sempli- 
cemente alla semplificazione e ve- 
locizzazione dei calcolo numerico. 
Esistono in effetti dei programmi 
che sono in grado di manipolare e 
ridurre espressioni algebriche di 
notevole compì essi vita. Il listato che 
vi proponiamo permette dì calcola- 
re r equazione di una retta qualora 
siano state fornite al computer 2 
coppie di coordinate. 

Una operazione di questo genere 
richiede naturalmente una gestione 
da parte della macchina di dati al- 
fanumerici. 

Inoltre il programma vi fornirà l'an- 
golo formato dalla retta con l’asse 
delle ascisse e la misura del seg- 
mento avente per estremi le 2 cop- 
pie di coordinate. 

A conclusione di queste fasi sare- 
mo in grado di visualizzare i seg- 
menti e le loro intersezioni in alta 
risoluzione tramite il modo bit-map. 
Passiamo ora all'analisi del listato. 
Le righe che vanno da 139 a 232 
consentono la presentazione del 
programma mediante una masche- 
rina iniziale f da IBI a 193 si fa ri- 
corso ad alcune Poke dello scher- 


mo video e relative locali dei colo- 
re. 

Nelle righe da 256 a 448 viene ef- 
fettuato ii calcolo dell'angolo e del- 


ia misura del segmento, vediamo 
nei dettaglio come avvengono que- 
ste operazioni. 

Da 268 a 328 vengono visuallzza- 
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te mediante un grafico le variabili 
che rappresentano gli elementi og- 
getto di calcolo nel programma (an- 
golo e segmento), 

A 334 è situata la formula che con- 
sente il calcolo dell'angolo Q t essa 
viene espressa tramite l'istruzione 
BASIC DEF FN che consente di de- 
finire con un breve nome un calco- 
lo complesso tipo una funzione. 
La riga 367 consente il calcolo del- 
la misura del segmento attraverso 
una applicazione del teorema di Pi- 
tagora alle coppie di coordinate ini- 
ziali. 

La matrice FT (20) permette la me- 
morizzazione delle coordinate intro- 
dotte dall' utente durame i calcoli 
successivi al primo che si è effet- 
tuato. 

Le righe da 409 a 421 consentono 
il compattamento della stringa che 
rappresenta l'equazione della ret- 
ta in esame. 

Nella riga 431 viene evidenziato il 
numero massimo di calcoli conse- 
cutivi che permette il programma 
(totale 5). 

Questa limitazione è dovuta alla 
particolare struttura di memoria che 
caratterizza il Commodore 64. Poi- 


ché il programma, le variabili e le 
matrici del BASIC vengono carica- 
te in memoria, salvo co ntroind rea- 
zioni iniziali, a partire dalla locazio- 
ne decimale 2048 bisogna presta- 
re particolare attenzione al fatto che 
uno di questi elementi non invada 
la pagina grafica che è stata locata 
a partire da 8192. 

Per chi io desiderasse è possibile 
togliere questa limitazione spostan- 
do l'area BASIC al di sopra della lo- 
cazione 16192, in quanto la pagina 
grafica occupa 8k di memoria. 
Anche in conseguenza di ciò che sì 
è detto si raccomanda di eliminare 
le righe provviste di REM prima del- 
l’esecuzione del programma. 

Nelle righe da 469 a 51 1 viene sti- 
mato il tempo di lavoro dell’utente, 
esso può risultare interessante nel 
caso in cui si cerchi di calcolare au- 
tonomamente i risultati prima che 
li comunichi if computer. Infatti il 
tempo che viene visualizzato non è 
altro che il periodo che intercorre 
tra r inizio del primo calcolo (mo- 
mento di digitazione delle prime 
coordinate) e la fine deH’mputazio- 
ne. 

Da 535 a 538 è definita la routine 


in linguaggio macchina che con- 
sente una pulizia estremamente ve- 
loce della pagina grafica. 

Essa viene allocata a partire dalla 
locazione decimale 491 52 ($COOO) T 
cioè in quella area di 4K RAM che 
non è soggetta all’interprete BA- 
SIC, 

Ora analizzeremo la parte probabil- 
mente più interessante del listato: 
il calcolo dell'equazione. 

Questo calcolo è compreso tra le ri- 
ghe 595 e 661 e si avvale delle fun- 
zioni d 3 stringa più importanti che 
possiede il BASIC del Commodore 
64. 

Per calcolare l'equazione dì una 
retta, date 2 coppie dì coordinate, 
è fondamentale determinare i valori 
dei coeffìeenti Al, B1 e CI dell’e- 
quazione generale di primo grado 
della retta A1X + B1Y + CI. 
Questi elementi sono dati dalle se- 
guenti relazioni: Al è uguale alla 
differenza delle ordinate 
Al = y2- — y 1 ) p B1 è uguale alla dif- 
ferenza delle ascisse (B1 =x2-xl), 
infine CI è dato dalia differenza tra 
il prodotto della seconda ascissa 
per la prima ordinata e quello della 
prima ascissa per la seconda ordi- 
nata (Cl=x2yt-x1y2). 

Le righe da 595 a 601 eseguono i 
calcoli appena citati tenendo con- 
to del fatto che, per convenzione» 
if primo coefficiente dell'equazione 
deve essere positivo. 

Le righe da 604 sino a 622 valuta- 
no i valori dei coefficienti Al, B1 e 
CI ed in base a questi si attiva quel- 
la parte di programma idonea per 
il calcolo della stringa che ci forni- 
rà l’equazione. 

Facciamo ora un esempio di quan- 
to è stato affermato: immaginiamo 
di avere tutti e tre i valori di Al, B1 
e 01 diversi da zero, in questo ca- 
so il programma si recherà alla ri- 
ga 637 dove troverà la struttura 
confacente allo sviluppo di una 
stringa che rappresenti corretta- 
mente l’equazione che deve risul- 
tare. 

I GOTO posti al termine di ogni ri- 
ga da 628 sino 661 vengono valu- 
tati solamente se la condizione in 
esame nella linea è verificata, que- 
sto comportamento è tipico della 
istruzione IF...THEN,,. del BASIC, 
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Le righe da 682 sino a 742 permet- 
tono la costruzione in pagina grafi- 
ca degli assi cartesiani orientati. 
Nelle linee da 766 a 844 avviene la 
visualizzazione dei segmenti in pa- 
gina grafica nel l'ordine in cui sono 
stati richiesti inizialmente daH’uten- 
te. 

Poiché il Commodore 64 ha una ri- 
soluzione grafica di 320 per 200 pi- 
xel, punti, l'origine degli assi carte- 
siani è stata posta alle coordinate 
169 per le ascisse e 99 per le ordi- 
nate. 

A questo proposito ricordiamo che 
in pagina grafica le coordinate del 
computer hanno inizio nell 1 angolo 
in alto a sinistra. 

Le righe da 772 a 781 traslano le 
coordinate realt date inizialmente 
dall'utente per adeguarle alla situa- 
zione esposta nella frase preceden- 
te. 

La riga 783 impedisce al segmen- 


to che abbia le ascisse al di fuori del 
range consentito dal programma di 
essere disegnato (0 319 oppure 
-159 159 in valore utente), poiché 
altrimenti si verificherebbero, inevi- 
tabilmente, dei fenomeni di spezza- 
tura del segmento. 

Le linee da 790 sino a 796 defini- 
scono le funzioni necessarie per il 
disegno di un punto della retta: 

— DEF FNCH (Z) è la formula usa- 
ta per determinare il numero di ri- 
ga e di colonna del carattere che 
corrisponde alle coordinate del 
punto; 

— DEF FNCO (Z) serve per calco- 
lare il byte a cui appartiene il punto 
attualmente in esame (si parte per 
quanto concerne il calcolo dalla 
8192); 

— DEF FNBI (Z) serve per calcola- 
re quale tra gli 8 bit disponibili sia 
quello corrispondente al nostro 
punto. 


Le procedure che sono state ora 
elencate potrebbero apparire com- 
plesse, ma se le osserviamo più at- 
tentamente esse ricalcano f impo- 
stazione suggerita dalla: “Guida dì 
riferimento per il Commodore 64” 
a riguardo il lavoro in pagina grafi- 
ca. 

Nelle righe 802 e 805 il programma 
deve scegliere fra 2 possibilità che 
incìderanno sul proporzionamento 
del segmento al fine di renderlo il 
più verosimigliante possibile ad uno 
reafe infatti il programma esegue 
un rapporto fra Ja differenza in va- 
lore assoluto delle ascisse e le or- 
dinate. L'iterazione in 841 avrà ter- 
mine quando saranno esaurite le 
coordinate inserite dall'utente, 
Questo programma si presta sen- 
z'altro a notevoli ampliamenti per 
quanto concerne gli enti geometri* 
Ci Che possono essere oggetto di 
rappresentazione. 


100 REM 


183 REM * & 
106 REM * EQUfiZIQNE DELLA RETTA $ 
109 REM * # 
112 REM * E SUA RAPPRESENTAZIONE * 
115 REM * * 
118 REM * GRAFICA . # 
121 REM * * 
124 REM * DI EUGENIO COPPARI HE 
127 REM * * 
130 REM * TEL - 659-11-52 <M1> * 
133 REM * He 


136 rem 

139 PRINTCHR#C147); 11 [DONNI 11 

142 FOR JK»1 TO 23 

145 IF JK-12 THEN FRINÌ TflB<2);"_ 


11 : GOTO 154 

143 IF JK=13 THEN PRIMI GOTO 154 
151 PR I NT "EDI ANCO ] C 1 9 RIGHI li 11 
154 NEXT 

157 rem mmmmmmmmmmmmm 

160 REM he He 

163 REM * PRIMA DI FAR GIRARE IL * 

166 REM * PROGRAMMA E 'NECESSARIO He 

169 REM He ELIMINARE LE RIGHE CON * 

172 REM He TENENTI LE REM - * 

175 REM HE HE 


173 

181 

184 

18? 

193 

133 

I 196 
! 199 

202 
205 
20 S 
211 
214 
217 
220 


226 

229 


232 


235 

23S 


REM ************************** 
POKE 2003, 116: POKE 56275,1 
POKE 1042, 233: POKE 55314,1 
POKE 1 043 , 223 : POKE 553 15,1 
POKE 1542, 223: POKE 55314,1 
POKE 1532, 1S5 ; P0KE 55354, 1=PRI 
NT" CH0ME3 11 
FOR BJ=1 TO 5 

IF BJ/2<>INT<BJ/2> THEN PRIHT 
TfiB < 3 1 -B J > ; V " : GOTO 205 
PRIHT 

NEXT SPRINT"! DOWNI"; 

FOR BJ=S TO 13 
FRI NT TflB<32-BJ>; V" 

NEXT : FRI NT" [DONNI " j 
FOR BJ=1 TO 5 

IF EJ/20INTCBJ/2> THEN FRI NT 
THB<13-B J)i =G0T0 226 
FRI NT 
NEXT 

PRI NT" CHOME 3 11 J " CRVSI 
CRVGFF3" 

PRINT " CRVS3 EQUAZIONE DELLA CR 
V0FF3 " : PRINT" CRVS3 RETTA 

CRVQFF3 11 : PRINT" CRVS3 
CRVOFF3" 

REM ************************** 
REM * * 
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241 REM * CALCOLO DELL'’ ANGOLO # 
244 REM * E DELLA MISURA DEL * 
24? REM * SEGMENTO . * 

250 REM * * 

253 REM 

256 FOR RZ=Ì TO 2000 : NEXT 
255 TI*®" 800000" 

262 DIM FT (20) 

265 POKE 53230, 1 : POKE 53231,1 
268 FRI NT "[NERO] " 

271 FRI NT "COLE ARI" 

274 PRINT TABC4)"V" : GOSUB 682 
277 PRINT TRBC3)"t" 

286 FOR A=1 TO 13 
233 PRINT TfiB(3)"l" 

236 HEXTR : GOSUB 682 

285 PRINT TABC4)* GOSUB 

682 

292 PRINT TABU 5) "X" 

295 PRINT "EHOME]" 

298 PRINT TABC1£)"C3 DOWN 3 [RVS 3 CBL 
EU30": PRINT TRBC14) "P2" ; GOSUB 
632 

301 PRINT TRBC5)" E5 DOWNfl CRVS3 CBLE 

U 30 C RVOFF 3 CROSSO] " = PRINT 

TABC7) " CBLEU3P1 C NERO 3 " : GOSUB 
632 

304 PRINT" CHOME3E4 BONN 3 " 

307 FOR R=1 1 TO 6 STEP -1 
310 PRINT T AB C A > ” E ROSSO 3 X C NERO 3 " 
313 NEXTA: GOSUB 682 
316 PRINT" [HOME] C7 D0WN3C8 RIGHT3C 
ROSSO] W" : GOSUB 632 
319 PRINT" [HOME] E 9 DOWN 3 E 3 RIGHT3% 
Q" 

322 PRINT" CHOME3 E 10 DOWN] [3 RIGHT3 
I" 

325 print" [nome: cu donni ce right] 

" : GOSUB 632 
328 PRINT" E 2 DOWN 3" 

331 IF ID=1 THEN 394 
334 DEF F MAC: C X ) = C -ATN C X/SQR ( -X*X+ 1 
> )+ir/2)#18@/ir 
337 X=0 : v=0 : R=@ : B=0 
340 INPUT " C£ DOWN 3 [ ROSSO 3 P 1 X, VE 
NERO] ";X,V:X1=X:V1®V 
343 GOSUB 862 : FT(EW)=X1 
346 GOSUB 862 : FTCEW)=Vi 
349 INPUT " ER03SQ3P2 X, VENERO] 

A , B : X2=A : V£=B 
352 GOSUB 862 : FT C EW ) =X2 
355 GOSUB 362 ; FTCEW)=V2 


ZC=ZC+1 
GOSUB 595 
C=A-X = D=B-V 
E=SQR<C*C+D#D) 

IF C=0 AND E=0 THEN F=0 : GOTO 3 
79 

IF D=0 THEN F=0 : GOTO 379 
F=FNACCC/E) 

IF 0>D THEN F=-F 
F=F+ SGNCF)*» 0905 
F=IHTCF*1000+. 5)/10@0 
E=INT(E*1000+.5>/1000 
I D— 1 : GOTO 268 

PR I NT " E RVS 3 C ROSSO 3 P 1 X C NERO 3 E R 
VOFF 3 " ; XI , " C RVS 3 E ROSSO 3 V C RVOFF 
3 [NERO 3", VI 

PR I NT " E RVS 3 E ROSSO 3 P2 X E NERO 3 C R 
VOFF 3 " ; X2 , " E RVS 3 C ROSSO 3 V C RVOFF 
3 [NERO] " J V2 

PRINT " E RVS 3 C ROSSO 3 W E NERO 3 C RVQF 
F 3 " , E 

IF F<0 THEN F=F+180 

PR I NT " E RVS 3 E ROSSO 3 Q E NERO 3 ERVOF 

F3",F 

E*LENCO$> 

FOR Rial TO E 
VV$=MID$<0$,RI, 1> 

IF VV$=" " THEN 0$=LEFT$<0$,RI 
-1 )+RIGHT$( Dì , E- CRI) ) : GOTO 409 
NEXT 

PR I NT " E RVS 3 C ROSSO 3EQUAZ I ONE E NE 
RO 3 E RVOFF 3 %Of 

PR I NT 1 11 C DOWN 3 1 RVS 3 C G I ALLO 3 ANCOR 
A UN CALCOLO S/N [DOWN 3" 

PR I N T " C UP 3 E MERO 3 0 [ LEFT 

3"J 

IF ZC=5 THEN Q$="N":FOR V2=l T 
0 5000 : NEXTVZ : GOTO 445 
GEI Q$ : IF Q$=" " THEN 433 
PRINTQ$; " EEIAHC03 " : FOR QQ=1 TO 
1400: NEXT 
FRI NT "E NERO 3" 

IF Q$= "S" THEN ID=0 : DOTO 265 
IF Qf= "M" THEN 469 
PRINT" E2 UP3 " : GOTO 430 
REM 

REM # * 

REM * TEMPO DI LAVORO COL * 
REM * COMPUTER . * 

REM * * 

rem mmmmmmmmmmmmm 
PRINT" ECLEAR3 " 


358 

361 

364 

367 

378 

373 

376 

379 

382 

385 

338 

391 

394 

397 

400 

483 

406 

489 

412 

415 

418 

421 

424 

427 

430 

431 

433 

436 

439 

442 

445 

44S 

451 

454 

457 

468 

463 

466 

469 
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472 PRINT" [7 DOWN ] C VERDE] CRV 

s: 

CRVOFF]" 

475 FRI NT" C VERDE 3 [RVS 3 

TEMPO DI LAVORO CRVuFF 3 " 

478 PRINT" C VERDE 3 [ RVS 3 

[RVOFF] " 

4SI H1$=LEFT*<TI*,2> 

484 M1$=MID$<TI$,3,2) 

487 S1*=RIGHT$<TI*,2> 

480 HI=VflL<HU> :Ml=VfiL<m*) =S1=VAL 
<Slf> 

493 PRINT " " j " C NERO 3 [ RVS 3 

CRVOFF 

3 [VERDE]" 

. 436 PR I NT " " ; " [ NERO 3 C RVS 3 CRV 

OFF] [VERDE 3 EHER03CR 

VS3 CRVOFF] [VERDE] C 

NERO 3 L RVS 3 L RVOFF 3 C VERDE 3 
" ; " E NERO 3 C RVS 3 E RVOFF ] t VERE 

E3 " 

493 PRINT" "[NERO] C RVS3 CRV 

OFF! [VERDE 3 "; " [NERO] CR 

VS 3 CRVOFF] [VERDE] C 

NERO 3 [ RVS 3 [ RVOFF 3 [ VERDE 3 
" ; " C NERO 3 C RVS 3 [ RVOFF 3 E VERE 

E3 " 

5U2 PRINT TBBC83; " CUP3H ="JH1J TRE 
<17)3 "M T AB ( 26 > " S =“JS1 

505 PRINT" "[NERO] [RVS 3 CRV 

OFF ][ VERDE 3 “ ; “ C NERO 3 C R 

VS3 [RVOFF] [VERDE 3 C 

NERO 3 C RVS 3 [ RVOFF 3 [VERDE 3 
" ; " [ NERO] [RVS 3 [ RVOFF 3 C VERD 

E3 " 

56S PR I NT " " j " E NERO 3 E RVS 3 

CRVOFF 

] E VERDE]" 

511 FOR NT = 1 TO 5008 ■ NEXT 

514 rem 

517 REM * * 

520 REM * ROUTINE IN L.M. PER Lfi * 

523 REM * PULITURA DELLA PAGINA $ 

526 REM * GRAFICA . * 

529 REM * * 

532 REM 

535 FOR K =49 152 TO 49222 : READ P ■ FU 
KE K.P^NEXT 

538 PR I NT " [ CLEAR 3 " : SA=8 1 92 : 3VS49 1 5 
2 

541 GOTO 685 

544 DATA 173/24,208,9,8.141,24,208 


LATA 173, 17,208,9,32, 141, 17,2 
08 

DATA 169,0,133,251,163,32,133 
, 252 

DAT A 1 6-0 , 0 ■ 1 69 , 0 , 1 45, 25 1 , 200 • 
132 

DATA 0,208,249,230,252, 169,64 
, 137 

DATA 252 , 208 , 239 ,169,0,133,25 
1 , 163 

DATA 4, 133,252, 160,0,169,3, 14 
5 

DATA 251,208,1 92 , 0 , 208 , 243 , 23 
0,252 

DATA 1 63 , 8 , 1 97 , 252 , 203 , £39 , 96 
REM a************************* 
REM * * 

REM * LAVORO CON LE STRINGHE * 
REM * DI CARATTERI PER IL * 
REM * CALCOLO DELL"' EQURZIO- * 
REM * NE DELLA RETTA . * 

REM * * 

REM ****#3t£*####Nf#*#****#3Mf**** 
IF B>V THEN A 1 =E-V : E 1 =K-fi ; C 1 = A 
#Y-X*B 

IF BCV THEN fll=V—B : Bl=A-X : Cl=X 

IF B=V THEN A 1=0 : B 1 =X-R : Cl=fì*Y 
-X*B 

IF A 1=@ AND B1O0 AND CI 08 TH 
EN 623 

IF A 1=0 AND B1O0 AND CI =8 THE 
N 634 

IF A 108 AND B1O0 AND C1O0 T 
NEH 637 

IF A108 AND BIOS AND 01=0 TH 
EN 649 

IF R1O0 AND B 1 =8 AND CI 08 TH 
EN 655 

IF Al 08 AND B1=0 AND CI =8 THE' 
N 661 

D$=" " : RETURN 
RETURN 

IF CK0 THEN 0*«8TR*<B1>+"V"+S 
TRACCI) = GOTO 625 
IF C1>0 THEN 0$=STR$< B 1 5 + " V " +" 
+ '‘+STRì7.Cl > ' GOTO 625 
0$=STR$ <B1>+" V " : GOTO 625 
IF B1<0 AND C1>0 THEN 0*=STR$< 
R1>+"X”+STR$CB1 > + " V " + “ + " +STR$ C 
CI) GOTO 625 

IF B1I-0 AND C1C0 THEN 0$=STR*C 


547 

550 

553 

556 

559 

562 

565 

568 

571 

574 

577 

580 

583 

586 

589 

532 

535 

538 

681 

604 

607 

618 

613 

616 

619 

622 

6L5 

628 

631 

634 

637 

648 
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■ £>4^.:! 

646 

649 

652 

655 


ODO 

661 

664 

667 

670 

671 
673 
676 
679 

!|CCj 

685 
688 
69 ì 
694 
697 
700 
703 
706 
709 

712 
715 

713 
721 
724 
727 
730 
733 
736 
739 

742 
745 

743 
751 
754 
75? 
760 


fllM ,, X" + 1, + "+STR*<Bl> + ' 

CI }: GOTO 625 
IF BK.0 AND CK0 THEN 0$=--STR$< 
ri >+»x"+str#‘;bi )+' 

GOTO S25 

ÌF Él>0 HMD Cl>@ THEN 0*»STR*C 
H i > + '* x " + " + 11 +STRf < B 1 > + " V " + " + " +S 
TR$CC1 > : GOTu 625 
IF B 1 >0 THEN 0$=STR$<R1>+"X"+" 
+ " +STR$ i B 1 > + " V " : DOTO 625 
IF B1<0 THEN Q**STR$<R1>+"X , '+S 
TR$<B1 )+"V" : GOTO 625 
IF Cì >6 THEN Q$=STR*Cm>+ ,, X" + " 
+"+STRS(Cl) : GOTO 625 
IF C 1 <0 THEN 0*=STF»<A1)+"X"+S 
TR$(C1> -GOTO 625 
Oì” STRI ( fi 1 > + " X ” : GOT 0 
REM ****s(i******#*##****»:***^etE* 

* 


REM 
REM * 
REM * 
REM * 
REM $ 


VISUALIZZAZIONE DEGLI * 


fissi 

CARTESIANI ORIENTATI. 


* 

* 

* 


rem 

FOR K8=l TU 1 30 : NEKT : RETURN 
FOR U7=0 TG 39 
PORe 1 2935+lJ?ift8j 255 
HEXT 

FOR ET=1 TO 14 
READ RI = READ UH 
POKE RI, UH 
HEXT 

FOR H6=0 TO 24 

FOR E I=@ TO 7 

RP=1 6@33-320*N6-E I 

IF RP=12195 THEN POKE HF',255- G 

OTO 721 

POKE RP , 1 28 

MENTE I 

HEXT 

FOR PV=0 TO 7 
READ UT 

POKE 8352+FV, UT 
READ UT 

POKE S344+PV, UT 
HEXT 

rem 

rem * * 

REM * RAPPRESEMI RZ I ONE ORA- * 

REM * FICA DEL SEGMENTO NEL * 

REM $ MODO BIT - MAP . * 

REM % * 


763 rem mmmmmmmmmmmmm 

7 66 EU=@ 

769 UL-UL+1 

772 GOSUE 862 : Xl-FT CEW>+159 
775 GOSUE 362 ; V 1 =33-61 < EN ) 

778 GOSUE 862 : X2=FT i EW > + 153 
781 GOSUE 862 : V2=99-FT £EI*i) 

783 IF Oa>313 OR XI <09 OR <X2>319 
OR X2<0> THEN 841 
734 GOSUE 790 
78? GOTO 802 

790 DEF FUCO ( 2 > =8 1 92+320*FNCH ( VR > + 
S*FNCH < XR > +VR-3*FNCH C VR > 

793 DEF FNCH 'I Z ? - 1 NT < 2/ 8 > 

796 DEF F NE I ( Z > ■ =7+8#FNCH < Z > -Z 
799 RETURN 

802 IF ABS \ X 1 -X2 > >=HBS < V 1 ~Y2 > THEN 
GOSUE 808 

805 IF ABS < X 1 -X2XRBS C V 1 ~Y2> THEN 
GOSUE 826 

308 S=0 : I F XI -X20B THEN S= < V 1 - V2 > 
/(X1-X2I 1 

811 FOR XR= I NT ( X 1 + . 5 > TO IHKX2+.5 
> STEP 3GH( X2-X 1 > 

8 1 4 VR= I NT C t XR-X 1 > *S+ . 5+V 1 > 

S 17 P=FNCO < 0 > : I F P> 8191 AND PC 1613 
2 THEN POKE P,PEEK<P) OR 2TFHE 

kxr; 

820 NEXTXR 
823 GOTO 841 

826 S= : 0 : IF V 1-V2O0 THEN S= < X 1 ■ -X2 > 
( V 1 ”V2 ) 

329 FOR VR“INT< <V1 )+. 5) TO I NT < V2+ 
.5) STEP 3GH<V2-tÌ ) 

832 XR= I NT < <YR-Y1>#S+X1 > 

8:35 P=FNCU < 0 J • I F P>8 1 9 1 AND PC 1619 
2 THEN POKE P, PEEKXP;' OR 2tFNE 
I < XR > 

838 NEXTVR 

841 IF ULCZC THEN 769 
844 GOTO 844 

S47 DATA 1 2348 , 254 , 1 2346 , 254 , i 234 
3 , 252 , 1 2345 , 252 , 1 2358 , 243 , 1 234 
4,248 

850 DATA 1 £35 1 , 240 , 1 2028 , 1 26 , 1 266 
6 , 1 28 ,12029,1 92 , 1 2 665 ,192,12 03 
0 , 224 

853 DATA 1 2664 , 224 , 1 2031 , 240 
656 DAT A 128,1,1 92 , 3 , 224 ,7,240,15 
359 DATA 248,31, 252 , 63 , 254 ,127,25 

cr cr 

862 EW=EW+Ì : RETURN 
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IL COMPATTORE 
PER TUTTI I TIPI 
DI COMMODORE 

di Giancarlo De Cobel il 


La contìnua diffusione del Commo- 
dore ha portato il mercato dì soft- 
ware disponibile per questo compu- 
ter a livelli veramente ottimi 
Oltre tutto la rapida nascita di innu- 
merevoli Club Commodore ha per* 
messo alla maggior parte di utiliz- 
zatori di possedere una fornita li- 
breria di programmi di svariato ge- 
nere, Lo scopo di questo articolo è 
quello di divulgare, anche per uti- 
lizzatori meno attenti ai vari movi- 
menti dei 'mercato" dei programmi, 
una utility che io ritengo possa 
mancare solo a chi si accontenta di 
usare il computer per videogiocare 
con gli innumerevoli giochi dispo- 
nìbili per il Commodore. Il listato 
pubblicato in queste pagine è una 
modifica del programma originale 
apparso su una rivista, non ricordo 
se americana, dell'aprile dello scor- 
so anno» Il programma è stato tra- 
dotto in italiano e modificato per po- 
ter permettere la scena del drive in 
input e di output ed è stata aggiun- 
ta una routine di fine programma. 

Il compattare, così si chiama que- 
sta utility, già dal nome (ascia capi- 
re quale sia il suo utilizzo» Molte vol- 
te vi sarà senz'altro capitato di do- 
ver diminuire (per i più svariati mo- 
tivi) lo spazio di memoria occupato 
da un programma. In quel momen- 
to vi siete visti costretti a passare 
riga per riga il programma per eli- 
minare tutti i commenti ('REM') e gli 
spazi tra una lettera e l'altra. Ora 
bastai Digitando questo sensazio- 



nale listato vedrete i vostri program- 
mi compattati in un baleno. 

A parte gli scherzi, questa utility 
permette di velocizzare in maniera 
notevole il compattamento di un 
programma. Un consiglio (se siete 
in possesso di un compilatore BA- 
SIC) è quello dì compilar© il Com- 
pattatore in modo tale che il risul- 
tato possa rendere più veloce ogni 
esecuzione futura del programma» 
H Compattatore molte volte sì rive- 
la utile ma anche in questi casi in 


cui risulti necessario eliminare alcu- 
ne protezioni basate sull 1 utilizzo 
delle REM, infatti elimina tutte le 
REM presenti nel programma. 

Funzionamento 

Il concetto dai quale è partito l'au- 
tore per sviluppare questo pro- 
gramma è il seguente: utilizzando 
le istruzioni GEI e PRINT del BA- 
SIC, il Commodore legge e scrive 
rispettivamente dal disco-sorgente 
e sul disco-destinazione le informa- 
zioni opportunamente trattate per 
raggiungere lo scopo finale che è 
quello di compattare il programma 
prescelto. 

Dopo aver passato tutte le linee per 
vedere dove sì trovano gli eventuali 
GOTO, GOSUB» ON GOTO, ON 
GOSUB ed aver posto i relativi nu- 
meri di linea in una matrice unidi- 
mensionale» riprende a leggere il 
programma dall'inizio trascrivendo- 
lo sul drive destinazione eliminan- 
do REM e spazi bianchì e tenendo, 
naturalmente conto» dei numeri di 
linea dove aveva trovato i vari salti 
a routines o subroutines. 

Ora esaminiamo riga per riga il li- 
stato per una più completa visione 
del funzionamento. 

100-116, Commento iniziale, di 
nessuna utilità pratica, che contie- 
ne informazioni sul programma, 
117. Pulizia dì tutte le variabili e di- 
mensionamento della matrice, 
118*131, Messa a punto dei colori 
di schermo ed istruzioni per il fun- 


se - Còmmodare 


zionamento. nella riga 1 24 T tra vir- 
golette, è scritta la parola "Compat- 
tatore" in caratteri shiftatL ciò per 
fare in modo che in fase di output 
su video risultino maiuscoli. 
132-140. Assunzione dei vari IN- 
PUT richiesti dal programma ed 
apertura del canale di lettura con 
controllo di errore del disco (GO- 
SUB 363). 

141-149. Dopo aver letto i primi ca- 
ratteri si controlla che T e Ti siano 
diversi da zero. In caso affermati- 
vo legge il numero di linea che de- 
ve trattare per vedere se esistono 
dei salti incondizionati. 

150-159. Lettura dei primi due ca- 
ratteri della linea e controllo con il 
codice ASCII 137 o 141 1 questi nu- 
meri corrispondono ai tokens GO- 
TO e GOSUB (i tokens, per chi non 

10 sapesse, sono i numeri chiavi e 
delle parole e BASIC), In caso af- 
fermativo si esegue la lettura e me- 
morizzazione del numero di linea 
altrimenti controllo se esiste il token 
THEN. Se il token viene trovato, 
stesso procedimento visto per il 
GOTO, altrimenti lettura di altri due 
caratteri. Quando fa variabile T as- 
sumerà il valore 0 il programma ri- 
tornerà a leggere un altro numero 
di linea e quindi il contenuto. 

1 60-1 70. Se il carattere è uno spa- 
zio: lettura di altri due due caratte- 
ri; confronto con i codici ASCII com- 
presi tra 48 e 57 per controllare se 

11 valore letto è un numero ed in tal 
caso memorizzazione del numero 
nella variabile LT. Quindi lettura di 
altri due caratteri e ritorno al test 
per vedere se il carattere è un nu- 
mero, 

171-184. Nel caso in cui ti caratte- 
re letto non fosse un numero con- 
trolla che l'ultimo numero tetto non 
corrisponsa a quello memorizzato 
prima (naturalmente questo avver- 
rà solamente dopo aver letto alme- 
no un numero); in tal caso salterà 
ad una routine che controlla ì to- 
kens dei salti condizionati. Altri- 
menti il numero letto viene memo- 
rizzato nella matrice TL(N) per po- 
ter memorizzare tutti i numeri letti, 
poiché la variabile LT viene aggior- 
nata ad ogni lettura. Dopo stampe- 
rà sul video il numero trattato e an- 
drà a controllare la routine dei salti 


condizionati. 

185-192. Nel caso il carattere letto 
corrisponda il codice ASCII dei to- 
kens ON GOTO o ON GUSUB ritor- 
no atta routine di lettura e memo- 
rizzazione del numero. Altrimenti, 
lettura dei due caratteri seguenti si- 
no a che non trova uno spazio; in 
tal caso ritorno al controllo della va- 
riabile 1 = 0 ed a seconda del risul- 
tato inizierà il compattamento 
(T - 0) o riprenderà da capo tutti i 
controlli sutta linea seguente fi 
<> 0 ). 

193-204. Controllo che il numero 
delle linee sia maggiore di due ed 
in tal caso riordinamento secondo 
il numero di linea, 

205-218. Chiusura e riapertura del 
canale di lettura per iniziare il com- 
pattamento; trasformazione dei no- 
me del programma originale con 
l'aggiunta del suffisso 7 C' ed aper- 
tura del canale di scrittura con con- 
trollo di errore del disco. Nei caso 
in cui esistesse un programma con 
il medesimo nome, viene eseguita 
la cancellazione automatica. 
219-226. Lettura dei primi due ca- 
ratteri che contengono il puntatore 
alla prossima linea e scrittura sul di- 
sco destinazione, 

228-249 Controllo di fine program- 
ma tramite le variabili T e Ti che 
devono essere uguali a 0; se il pro- 
gramma non è finito stampa sul vi- 
deo def numero di finea del pro- 
gramma che verrà scrìtto sul disco 
destinazione e ritorno atta lettura di 
altri due caratteri. Se i caratteri let- 
ti sono uno spazio od un due punti 
continua la lettura dei caratteri se- 
guenti altrimenti se T è uguale a 0 
test sulla matrice TL (N) per i vari 
GOTO. Prima ài prendere altri due 
caratteri la linea 240 controlla che 
il foken che segue non sua una 
REM altrimenti passa atta scrittura 
dei numero dì linea sul disco desti- 
nazione. 

Se il test sulla matrice TL{N) relati- 
vo al numero dì linea che si sta trat- 
tando con il numero di lìnea del pro- 
gramma sorgente risulta essere 
uguale allora scrive il numero di li- 
nea sul disco destinazione altri- 
menti ritorna all'inizio della routine 
per riprendere tutto il ciclo da ca- 
po. Nella linea 249 c'è il controllo 


della variabile F. Una volta scritto 
il numero di linea la variabile F vie- 
ne azzerata e quindi si passa al 
controllo della linea attuale. 
250-261 . Controlla di nuovo se i ca- 
ratteri letti corrispondono a GOTO 

0 IF, ...THEN ed in tal caso pone F 
uguale ad 1; poi a seconda che T 
sia uguale a 0 o 32 (spazio) salta al 
controllo di fine linea o riprende al- 
tri due caratteri. 

262-270. Se il valore di T era diver- 
so dai due numeri precedenti ed è 
diverso dal codice ASCII del token 
REM salta alia riga 277 altrimenti 
continua a leggere caratteri (che 
sono da eliminare perché scritti do- 
po il token REM) fino a quando T 
è uguale a 0; in tal caso salta al 
controllo e scrittura ultimi caratteri 
detta linea. 

271-284. Questa routine serve per 
controllare quando la lettura dei ca- 
ratteri Incontra il codice ASCII 34 
(virgolette) per poter permettere di 
scrivere sul disco destinazione i ca- 
ratteri racchiusi tra virgolette sen- 
za modificarli. Alia fine salta al con- 
trollo e scrittura ultimi caratteri del- 
la riga. 

285-297. Controllo del carattere 
'due punti 1 , in tal caso ritorno atta 
routine della scansione linea BA- 
SIC altrimenti legge due caratteri e 
se T vale 32 (spazio) o 58 (due pun- 
ti) ritorna a leggerne altri due inve- 
ce se Té uguale a 143 (REM) ritor- 
na alla routine descritta prima do- 
ve elimina tutti i caratteri dopo tale 
istruzione. Se T è uguale a 0 va al- 
la routine di fine riga altrimenti 
stampa un due punti per separare 
una istruzione dall'altra e poi ritor- 
na alla riga 258 dove riprende il 
controllo della linea BASIC. 
298-308. La linea 304 controlla che 
la lìnea BASIC scritta sul disco de- 
stinazione sia maggiore di 170 ca- 
ratteri oppure che F sia uguale ad 

1 ; in tal caso pone T uguale a 0 e 
poi ritorna alia lettura di un nuovo 
numero di lìnea. Per vedere se il 
numero dei caratteri è maggiore di 
1 70 durante il programma viene uti- 
lizzata la variabile R che viene op- 
portunamente incrementata duran- 
te l'esecuzione. Le linee 305-308 
provvedono a leggere due caratte- 
ri per vedere se il compattamento 
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è finito o leggere un nuovo numero 
di linea. 

309- 317. Test per sapere se la lì- 
nea che si è esaminata è finita ed 
in tal caso salto alla routine di scrit- 
tura degli ultimi caratteri della linea. 

31 0- 326 Se la linea che si sta esa- 
minando non è finita lettura di altri 
due caratteri ed a seconda del va* 
lore assunto da T legge il prossimo 
numero di linea (T » 0) o legge altri 
due caratteri (T - 32 o 58) o salta al- 
la routine per eliminare i caratteri 
scrìtti dopo il totcen REM fi * 143); 
se T non assume nessuno di que- 
sti valori scrive un due punti per se- 
parare le istruzioni e ritorna al con- 
trollo della linea BASIC. 

327-337. Se la condizione testata 
nella flnea 295 è vera il program- 
ma ora scrive gli ultimi caratteri del- 
la riga, pone F uguale a 0 e ritorna 
alla scansione della riga BASIC dei 
programma sorgente. 

338-353. Quando nel corso del pro- 
gramma si verifica la condizione 


che Teli sono uguali a 0 signifi- 
ca che il programma sorgente è fi- 
nito poiché ogni programma è sem- 
pre chiuso con due caratteri che 
corrispondono al codice ASCII 0. 
Quindi vengono scritti tre zeri (uno 
per la fine riga e due per fine pro- 
gramma), chiusi i canali di lettura, 
scrittura e comando (per controlla- 
re le routine di errore del disco) e 
viene chiesto se si vuole compatta- 
re un altro programma oppure pas- 
sare ad altri lavori. In quest'ultimo 
caso viene eseguito un System re- 
set dei Commodore (quello citato 
nel programma corrispondente al 
C64; per ì\ VIC 20 eseguire 
SYS 64802, per il Commodore del- 
la serie 4000 e 8000 SYS64790). 
354-362. Lettura di due caratteri 
dal disco sorgente e trasformazio- 
ne in codice ASCII; il valore viene 
posto nella variabile T e TI 
363-366. Lettura delle variabili che 
contengono un eventuale errore del 
disco ed in tal caso interruzione del- 


l'esecuzione del programma e 
stampa su vìdeo dell'errore che si 
è verificato. 

Conclusione 

Dato che durante il programma vi so- 
no una infinità di GOTO e GOSUB. al- 
la prima Iattura può anche non risulta- 
re del tutto chiaro il funzionamento, ma 
afferrata la chiave logica risulterà tutto 
molto più chiaro. Penso che il primo 
programma che proverete a compatta- 
re sarà senz'altro questo stesso, data 
la numerosa presenza di REM che dei 
resto servono per rendere più capitile 
il listato. 

Nel cosro dell 'articolo compare un pic- 
colo programma di prova che serve per 
verificare che il compattatore ‘giri 1 , poi- 
ché compattare subito un lungo pro- 
gramma senza essere sicuri del suo 
perfetto funzionamento comporterebbe 
una notevole perdita di tempo. Nel 
prossimo numero della rivista compa- 
rirà lo scompariate re che fa esattamen- 
te il contrario del programma ora pro- 
posto. Quindi arrivederci a tutti sul pros- 
simo numero. 


PROVA 

10 PRINTCCLERR]" 

11 X=0 

12 SL=INT<2000*RNDa>> 

13 IF SL>2023 THEN 12 

14 IF SLC1024 THEN 12 

15 P0KE SL..42 

16 POKE SL+54272j INT(15#RND(1>) 

1? X=X+1 

1S IF X>400 THEN 20 

19 GOTO 12 

20 F0R D=1 T0 300 

21 NEXTD 

22 F'RINT" CCLERR1 " 

23 PRI NT "PREMERE [RVSIFCRVOFF] PE 
R FINIRE" 

24 PRI NT "PREMERE CRVS3RCRVOFF3 PE 
R RIC0MINCIRRE" 

25 GET RB$ 

26 IF RB$="" THEN 25 

27 IF RB$=“F" THEN 30 
23 IF RB$="R” THEN 10 
29 GOTO 25 

36 END 


PROVfl/C 

10 PRINT"CCLERR:" :X=0 
12 SL“INT(2000#RND(1 >> ; IF SL>2023 
THEN 12 

14 IF 31X1024 THEN 12 

15 POKE SU 42 : POKE SL+54272, INTC1 
5#RND<1>> X=X+U IF X>400 THEN 
20 

19 GOTO 12 

20 F0R D=1 T0 300 : HEXTD 1 PRINT" COL 
ERRI" : PRI NT "PREMERE CRVS3FCRV0 
FF3 PER FINIRE" : PRI NT" PREMERE 
CRVS3RCRV0FF] PER RICOMINCIARE 

25 GET RB$ ; IF RE$="" THEN 25 
27 IF RB$="F" THEN 30 
23 IF RB$="R“ THEN 10 

29 GOTO 25 

30 END 
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100 

REM 

^ ^ i ^ ^ a Jk, ^ i ■‘Jf "fc jfc ‘A" "ah 1 jL" ‘ÉT’A' ìfc « 

101 

REM 

* 

# 

102 

REM 


OMPBTTATORE* 

103 

REM 

* 

* 

104 

REM 

# 

MODIFICA DI * 

105 

REM 

* 

* 

106 

REM 

* 

GIANCARLO * 

107 

REM 

* 

* 

108 

REM 

* 

DE COBELL I * 

109 

REM 

* 

% 

110 

REM 

* 

V. LE DEI FIORI 65 * 

111 

REM 

* 

* 

112 

REM 

* 

CUSANO MI LAN INO MI * 

113 

REM 

* 

* 

114 

REM 

% 

TEL. 02761923 06 * 

115 

REM 

% 

* 

116 

REM 


117 

CLR 

■ DIM TL<1000> 

118 

REM 


119 

REM 

* 

# 

120 

REM 

* 

ISTRUZIONI * 

121 

REM 

* 

* 

122 

REM 

#*###*#*#*###**##*#*###*# 


123 POKE 53288,0 ; POKE 53281 ,0:PRIN 
TCHR$< 14) 

124 PRINT" I VERDE HCLEAR]" TRB<12>" 
CRVS3 -f\T*ll*ir-“ E 2 DOWN] 

125 PRINT"»UESTA UTILITV COMPATIR 
UN PROGRAMMA PO- 

126 PRINT"STO NEL DRIVE PRESCELTO 
CANCELLANDO TUT- 

127 PRINT" TE LE REM, ANNOTAZIONI , 

SPAZI VUOTI E 

128 PRINT"LINCANDO TUTTE LE LINEE 
POSSIBILI. E2 DOWN] 

129 PRIHT'SL PROGRAMMA COMPRTTATTO 

Crt/PO' I fi c-TF^Qfl 

130 PRINT "NOME, MA SEGUITO DAL SUF 


FISSO VC' E SO- 
PRI NT" RA y SALVATO SUL DRIVE PR 
ESCELTO. CDOWN]" 

INPUT -CRVS] “RIVE SORGENTE 

#" ; do$ 

IF D0$CCHR$<48) OR D0$>CHRt<49 
> THEN PRINT" [UP3 GOTO 132 
INPUT " C RVS 3 “RIVE DESTI NAZION 
E#”;DD$ 

IF DD$<CHR$C48> OR BW>CHR$<49 
) THEN 134 

INPUT "E RVS 3 /OME PROGRAMMA 

" ; npì 

OPEN 15,8.15 

OPEN 5.8.5, DO$+" : " +NPÌ+ ",P,R" : 
GOSUE 363 

PRINT" [RVOFF] [OLEARI *CRNS IONE 
PROGRAMMA 

PRINT" PER LINEE DA COMPRTTA 

RE 12 DOWN] " 

REM 

REM * * 

REM * LETTURA PUNTATORE E * 

REM * NUMERO DELLA LINEA * 

REM * * 

rem 

GOSUE 363 : G0SUB 359 

GOSUE 359: IF T+T1=0 THEN 199 

GOSUE 359 : LN=T 1 + C 25S*T > 

rem 

REM # 'M 

REM * SCANSIONE LINEE BASIC * 
REM * PER GOTO GOSUB # 
REM * * 

REM #*#**##****#**#**##*#*### 
GOSUE 360 
IF T=0 THEN 143 
IF T=137 OR T=141 THEN 166 
IF T0167 THEN 156 

rem 

REM $ * 

REM * MEMORIZZAZIONE LINEE * 
REM * DA COMPATTATORE * 
REM % * 

REM 
LT=0 

GOSUB 360: IF t= 32 THEN 167 
IF T<48 OR T>57 THEN 177 
LT=C10#LT>+VfiL'X$> 

GOSUE 360: GOTO 163 

REM m#*m**m****mM.*m$&m 

REM * * 


131 

132 

133 

134 

135 

136 

137 

133 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

153 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 
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173 REM * TEST PER CONTROLLRRE * 

174 REM * SE GIR' TROVATA * 

175 REM * # 

176 REM **#*****#******##*#****** 

177 FOR X=0 TO N 

178 IF TL<X)=LT THEN 190 

179 NEXTX 

180 TL < N ) =LT : N=N+ 1 

181 PRINTLT, 

182 IF N<1 000 THEN 190 

183 PRINT-C2 DOWN] TROPPE LINEE DR 
COMPATTARE ! " 

184 GOTO 345 

185 rem ************************* 

186 REM $ * 

187 REM * TEST PER ONGOTOXGQSUB * 

188 REM * * 

189 REM ************************* 

190 IF T=44 THEN 166 

191 IF T 032 THEN 157 

192 GQSUB 360: GOTO 190 

193 REM ************************* 


194 REM # * 

195 REM * RIORDINO LINEE DR * 

196 REM * COMPATTARE* * 

197 REM * * 


198 rem ************************* 

199 IF N<2 THEN 211 
20@ FOR X=0 TO N-l 

201 FOR Y=0 TO N-2 

202 IF TLCVKTLCX) THEN 204 

203 T=TLCV) :TL(V)=TLCX> : TL<X>=T 

204 NEXTV ■■ X 

205 rem ************************* 

206 REM * * 

207 REM ^INIZIALI ZZRZ I ONE PER IL* 
203 REM * COMPATTAMENTO * 

209 REM * * 

210 REM ************************* 

211 PR I NT " C CLEAR 3 #TQ COMPATTANDO.. 
. . . C2 DONNI 

212 CLOSE 5 

213 OPEN 5,8-5,00$+" : "+NP$+",P,R" 

214 GOSUB 363 

215 ND$=LEFT$ CNP$, 14)+ VC" 

216 PRINT#15, "S“+BD$+" : “+ND$ 

217 OPEN 6,8, 6, DD$+" : "+NDf+", P, N" 

218 GOSUB 363 

219 REM ************************* 

220 REM * * 

221 REM * COPIA PUNTATORE DI * 

222 REM * LINEA * 


REM * * 

REM ************************* 
GOSUB 359 
PR I NT#6 , CHR$ < T 1 ) J 
PRINT#6,CHR$<T>; :R=0 
REM ************************* 
REM * * 

REM «COPIA LINEA E NUM. LINEA* 

REM * * 

REM ************************* 
GOSUB 359 : K1=T1 : K2=T 
F=0 : IF T+T1=0 THEN 344 
GOSUB 353 : L1=T1 : L2=T 
LN=L1+C256*L2) *PRINT LN, 

GOSUB 360 

IF T=32 OR T=58 THEN 237 
IF T=0 THEN 242 
IF T0143 THEN 246 
GOSUB 360: IF j>0 THEN 241 
F=1 : FOR X=0 TO N 
IF TL<XXLN THEN NEXTX 
IF TLtX)=LN THEN 246 
GOTO 233 

PRINT#6, CHR$<K1 ? ; CHR$<K2> ; 

PR I NT #6 , CHR$ <CL1 > ; CHR$( L2 ) ; : R=4 
IF F THEN PRINT46, " = "J :R=5 
F=0 : GOTO 258 

REM ************************* 
REM * * 

REM «SCANSIONE LINEE BASIC E* 

REM «COMPATTAMENTO PROGRAMMA* 

REM * * 

REM ************************* 
PRINT#6,C$; :R=R+1 
GOSUB 360 
IF T=137 THEN F=1 
IF T=139 OR T=1 67 THEN F=1 
IF T=0 THEN 304 
IF T=32 THEN 257 
REM ************************* 
REM * * 

REM «ELIMINAZIONE 'REM" DAL* 
REM * RESTO DELLA LINEA * 
REM * * 

REM ************************* 
IF T0143 THEN 277 
GOSUB 360: IF T>0 THEN 269 
GOTO 304 

REM ************************* 
REM * * 

REM «COPIA FINO AL PROSSIMO* 
REM * REM 0 FINE LINEA * 


223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

243 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 
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275 REM * * 

276 rem ************************* 

277 IF T<>34 THEH 291 

278 PRINT#6,C$; :R=R+1 

279 GOSUB 360 

280 IF T=34 THEH 256 

281 IF T>0 THEN 278 

282 IF F THEN T=@:GOTO 227 

283 PRINT#6,CHR$<34>; ; R=R+1 

284 GOTO 304 

285 rem ************************* 

286 REM * * 

287 REM «TEST ' FINO AL PROS-* 

288 REM *SIM0 CARATTERE E COPIA* 

289 REM * * 

290 REM ************************* 

291 IF T058 THEN 256 

292 GOSUB 360 

293 IF T-32 OR T=58 THEN 292 

294 IF T-143 THEN 269 

295 IF T=0 THEN 304 

296 PRIHT#6,":";:R=R+1 

297 GOTO 258 

298 REM ************************* 


299 REM * * 

300 REM * TEST FINE LINEA * 

301 REM * E COMPATTAMENTO * 

302 REM * * 


303 REM ************************* 

304 IF F OR (R>170> THEN T=0 : GOTO 

227 

305 GOSUB 359 

306 IF T+T1=@ THEN 344 

307 GOSUB 359 : LN”T 1 +C256*T) 

308 L 1 =T 1 : L£=T : PR I NT LN, 

309 REM ************************* 

310 REM * * 

311 REM * TEST CONTROLLO LINEA * 

312 REM * SE Gl A' COMPATTATA * 

313 REM * * 

314 REM ************************* 

315 FOR X=0 TO N 

316 IF TLOOCLN THEN NEHTX 

317 IF TLGO=LN THEN 332 

318 REM ************************* 

319 REM * * 

320 REM *SCARTQ LINEE NON USATE* 

321 REM * * 

322 REM ************************* 

323 GOSUB 360 ■ IF T=143 THEN 269 

324 IF T=32 OR T=58 THEN 323 

325 IF T=0 THEN 305 


PR I NT#6 R=R+ 1 : GOTO 258 
REM ************************* 
REM * * 

REM * SCRITTURA ULTIMA RIGA * 
REM * IN QUESTIONE * 
REM * * 

REM ************************* 
PR I NT#6 , CHR$ < 0 > ; CHR$ CI ) i CHR* < 1 
5 ì 

PR I NT#6, CHR$< LI > J CHR$ < L2 ? J : R=4 
GOSUB 360= IF T=32 OR T=5S THEN 
334 

IF T=0 OR T=143 THEN PRINTSS," 

* il * 

F=0 : GOTO 253 

REM ************************* 
REM * * 

REM «FINE BEL COMPATTAMENTO* 

REM «CHIUSURA DEL PROGRAMMA* 

REM * * 

REM ************************* 
PRI NT#S , CHR$< 0 > ; CHR$ C 0 > : CHR$ C 0 
>; 

CLOSE 5 : CLOSE 6 ; CLOSE 15 
PRINT" ECLEAR] " : PRINT TABC 10) ; P 
RINT" C4 DOWN ] “OMPATTAMENTO FI 
MITO" 

FOR K=1 TO 500 : NEXTK 

PRINT" CCLEARKL PROGRAMMA COMP 

RTTRTO E' STATO SALVATO " 

PRI NT "SUL DISCO NEL DRIVE PRES 
CELTO. " 

INPUT " C5 DOWHIXUOI COMPATTARE 
UN ALTRO PROGRAMMA C [ RVS ] S/N [ R 
VOFF 1 ) " ; SNf ' 

PRINT" [CLERR]" 

IF SN$="S“ THEN 132 
SVS64738 

REM ************************* 

REM * * 

REM * SUBROUT I NE3 * 

REM * * 

REM ************************* 

GOSUE 360:T1=T 

GET #5 , C$ : GOSUB 363 

IF C$=" ,, THEN T=0 : RETURN 

T=ASC(C*>: RETURN 

INPUT# 15 j EN.. EM$; ET > ES 

IF EN=0 THEN RETURN 

PRINT" C4 DOWN ][ RVS l“RRORE NEL 

D I SCO C DOWN 1 " 

PR I NTEN ; EM$ ; ET ES 
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331 
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333 

334 

335 

336 

337 

333 

339 
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341 

342 

343 

344 

345 

346 

347 

348 

345 

350 

351 

352 
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360 
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SPOSTA BASIC E ALTRO 


di Ernesto Sidotì 


PROBLEMA 1 

il chip 6567, detto anche VIC il, può 
“leggere' 1 per ogni sprite un grup- 
po di DATA allocati in locazioni pre 
fissate dall 1 utente. Quando si vuo- 
le accendere sullo schermo una 
sprite, bisogna far sapere ‘al VIC II 
dove andare a reperire le informa* 
zioni che creeranno l'immagine. Le 
locazioni dove si memorizzano gli 
indirizzi vanno da 2040 a 2047. 

In questi registri, chiamati puntato- 
ri della sprite, sì dovrà memorizza- 
re un sottomiltipio dell'indirizzo del- 
la prima cella dì memoria dove ri- 
siedono le informazioni per defini- 
re una sprite. 

Ad esempio se nella locazione 
2040, che è il puntatore defla sprì- 
te 0, mettiamo il valore 13, il VIC II 
andrà a leggere i valori a partire 
dalla locazione 832 per finire alla lo- 
cazione 895. Tale indirizzo si rica- 
va dal prodotto del valore posto nel 
puntatore. (13 in questo caso) e coi 
numero di bytes necessari per la 
creazione di una sprite 63 + 1 . L'ut- 
timo valore non viene considerato, 
dato che il Commodore 64 usa per 
i propri calcoli il sistema binario. (64 
è uguale a 2 elevato a 6). 

INDIRIZZO BLOCCO 13*64 = 832 

Fatta questa piccola premessa, t* 
dovresti già essere accorto che il 
VIC II può accedere fino alla loca- 
zione 16320 (255*64), (A=B*C, 
dove B è il massimo valore che il 
puntatore può assumere e C è il nu- 
mero di valori necessari per defini- 
re una sprite.) 

All'interno dell'area RAM, accessi- 
bile dai puntatori delle sprite, mol- 
te locazioni sono inutilizzabili per 
archiviare i DATA, 



Numero sprite 

Registro X 

Registro Y 

0 

53248 

53245 

t 

53250 

53251 

2 

532S2 

53253 

3 

53254 

532S5 

4 

53256 

53257 

5 

53258 

53258 

6 

53260 

53261 

7 

53262 

53263 

flg.1 

Re<^stn d» posizione per :x;r spete 


È oramai noto che il primo K byte 
di RAM è usato dal systema ope- 
rativo del COMMODORE 64: è 
quella parte cioè che viene defini- 
ta pagina zero. Quindi il solo spa- 
zio disponibile è quello che va dal- 
la locazione 828 fino a 1023. Que- 
sto spazio è assegnato al buffer di 
cassetta, quindi inutilizzabile quan- 
do sì usa il registratore. La sola al- 
tra area disponibile è quella utiliz- 
zata dal testo BASIC il cui inizio, co- 
me si sa, è fissato a 2048 e si esten- 
de fino a 40959. rendendo disponi- 
bile ai tuoi programmi BASIC 3891 1 
Bytes, 

Il problema a taf punto dovrebbe 
essere chiaro. Dove archiviare una 
sequenza di DATA senza paura 
che venga modificata dal sistema 
operativo o daJ testo di un program- 
ma in BASIC? 

In questo artìcolo propongono una 
routine capace di portare più in al- 
to l'indirizzo di partenza del pro- 
gramma BASIC che da 2048 andrà 
a fissarsi a 2560, lasciando così 512 
Bytes lìberi per l'allocazione dei 
DATA per le sprite. (vedi fig. t) 
Dopo aver digitato la routine basta 
dare il seguente comando: 
SYS49329 

e lo start del BASIC sarà allocato 
a 2560. Il BASIC manterrà tutte le 
caratteristiche che aveva prima che 
avvenisse lo spostamento in alto, 
cioè caricherà normalmente dalle 
periferiche e accetterà senza pro- 
blemi caratteri da tastiera. 

PROBLEMA 2 

Per poter posizionare le sprite sul- 
lo schermo vengono usati 16 regi- 
stri allocati da 53248 a 53263. In 
queste locazioni sono memorizzati 
■ dati riguardanti la posizione X e Y 
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di ogni sprite. (vedi fig. 2). 
Ricordati che i registri (X e Y) me- 
morizzano la posizione de! pixel $u- 
periore sinistro. Sullo schermo del 
tuo C64 si possono accendere 320 
pixel sudasse X e 200 su quello Y, 
ma per le sprite l’area visibile sul- 
Tasse orizzontale va da 24 fino a 
344 e da 50 sino a 250 per quello 
verticale, (vedi fig. 4). 

Esistono per la sprite posizioni an- 
che invisibili: tal! luoghi sono neces- 
sari per permettere alla sprite di 
uscire dall'area visibile compieta- 
mente senza apparire da! margine 
opposto. Come ben saprai, in ogni 
locazione il valore massimo che 
puoi memorizzare è 255 f ma la po- 
sizione X delia sprite può andare 
ben oltre a tale valore, L'inconve- 
niente si risolve usando il registro 
MSBX allocato in 53265, 

Così facendo potremo disporre per 
ogni sprite oltre agli 3 bit del regi- 
stro X un bit dei registro MSBX rea- 
lizzando così un Bvte di nove bit 


Registri X 


o i~f 1 i Nili * ^ 

1 

i minili^: 

À Q 

* m Li I i n* j - 

I 

3 

S 

« CD 


cn x 

Si 

si 

» cnxnro * — 4 


Fi* 5 



Con l’espediente possiamo supera- 
re agevolmente il valore di 255. 
Un simile sistema dì posizionamen- 
to può risultare un po’ complicato 

perché per valori di X compresi da 



0 a 255 si usa solo il registro X, 
mentre per valori superiori anche 
un bit del registro MSBX, (fig. 5). Se 
ad esempio vogliamo posizionare la 
sprite sulla posizione 256 basterà 
portare a 0 II valore del corrispon- 
dente registro X e a 1 il valore del 
registro MSBX, 

Per agevolare l’uso di questi regi- 
stri basta usare la routine SPOSTA 
BASIC: questa associa a X% e Y% 
la posizione della sprite sullo scher- 
mo e a SN% il numero della sprite 
da considerare. Con questa routi- 
ne non sarà più necessario usare 

1 registri di X, Y e MSBX in quanto 
le posizioni saranno direttamente 
assegnate alle variabili sopra cita- 
te. Per richiamare la routine, sem- 
pre dopo averla caricata in memo- 
ria, basta assegnare i valori X% e 
Y°/o e SN% da 0 7) e poi dare: 
SYS4921 7 

Per maggiore chiarezza, osserva e 
prova i programmi esplicativi 'PRO- 
VA SPRITE' e 'LAVAGNA GRAFI- 
CA'. 

Nel primo programma ‘PROVA 
SPRITE' nelle righe che vanno dal- 
la 320 alla 500 c’è uh chiaro esem- 
pio di come portare a spasso due 
sprite. 

'LAVAGNA GRAFICA' è un pro- 
gramma che oltre a essere esplica- 
tivo per l'uso della routine qui pre- 
sentata, ti permette di disegnare in 
alta risoluzione e archiviare su dì- 
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sco l'intero disegno realizzato. 

I listati che vi propongo sono note- 
volmente chiarificati tramite te nu- 
merose REM disseminate durante 
i programmi, in particolare modo la 
"LAVAGNA GRAFICA’ che racchiu- 
de in se un po’ tutti i segreti espo- 
sti fino ad ora. Per fuso 5* quest'ul- 
timo programma vale la pena spen- 
dere qualche parola. 

Dopo aver caricato ed eseguito ta 
routine "SPOSTA BASIC 1 * occorre 
caricare ii programma "LAVAGNA 
GRAFiCA’ e..,. dopo il RUN appa- 
rirà sullo schermo un menù con al- 
cune scelte. Digitando la numero 1 
si attiva l'opzione con la quale in 
una decina di secondi si pulirà la 
pagina grafica. Con la numero 2 si 
aprirà la pagina grafica e dopo aver 
atteso la colorazione di quest 'ulti- 
ma premere un tasto di funzione 
che farà apparire una piccola tarta- 
ruga al centro dello schermo. Muo- 
vendo opportunamente questa tar- 
taruga su e giù con i tasti definitivi 
e riportati in figura 3 ti sarà permes- 
so di realizzare disegni in alta riso- 
luzione sullo schermo del tuo COM- 
MODORE 64, Con le scelte 3 e 4 
si può scrivere o leggere da perife- 
rica il disegno archiviato. Nel pro- 


gramma, utilizzo una periferica a di- 
schi floppy. Ma può anche essere 
un registratore a cassette. In que- 
sto caso dovranno essere modifica- 
te; la riga 1910 per l'apertura in 
scrittura (OPEN 2,1,2) e la riga 
2040 per l'apertura in lettura 
(OPEN 2,1). 

fi tasto funzione FI permette alla 
tartaruga di spostarsi più veloce- 


mente o più lentamente; permetten- 
dolo una volta si otterrà Taccellera- 
zione e premendolo una seconda 
volta si rallenterà’. N tasto funzione 
P2 permette di fare delle correzio- 
ni sulle linee già tracciate. Ripre- 
mendolo si trova a disegnare. F3 
Premendo questo tasto la tartaru- 
ga si sposterà senza tracciare o 
cancellare. 



■"- > T 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 


1120 


1130 

1140 


REM 



,253 

REM 

* 

* 

1150 

DATA 

REM 

* SPOSTA BASIC 

# 


8 

REM 

* 

* 

1160 

DATA 

REM 

■Jàf ^ r "jLf -JL •A*- ‘■Jb ^ Ir l 1 db >1/ ‘X* «JL» db -X r X* 

Vm-CL m ***** **tl* W 


6 




1170 

DATA 

PRINT" [OLEARI " 



0,177 

L=49152 - H*0 


1180 

DRTA 

READ 

T= IF T=-2 THEN 1110 



7,253 

POKE 

L, T ; L=L+1 


1130 

DATA 


H=H+T : BOTO 1080 

IF H026366 THEN PRINT" [OLEARI C 
5 DOWN] CONDÌ ZIONE DI ERRORE RIC 
ONTROLLft I DATA": END 
IF L 049350 THEN PRINT" [OLEARI C 
RI0HTK4 DOWN INUMERÒ DI DATA DI 
VERSO DAL RICHIESTO" ; END 
PRIHT" [2 DOWN 1 3VS49329 1 3 UPI'^E 
ND 

DATA 165,46,133,254,165,45,133 


,200 

1200 DATA 152,24,105,6,101,253,133, 
253 

1210 DATA 165,254,105,0,133,254,76, 
8 

1220 DATA 132,163,211,133,252,169,2 
06, 133 

1230 DATA 251,32,0,192, 176,39,152,43 
1240 
1250 


DATA 91,201,3, 176,87,133,243, 10 
DATA 133,250,169,1,200,136,240, 
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1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1349 

1350 
1360 
1370 

1380 


4 

DATA 10. 76.93.- 132. 133.248. 169.2 
17 

DATA 133.252.169.128.133.251.32 

.0 

DATR 192. 176.52. 166.250. 152. 157 

. 1 

OTTA 208. 169.216. 133.252. 169. 12 
8.133 

DATA 251.32.0. 192. 176.33. 138.72 
DATA 166.250. 152.157.0.208. 104. 
201 

DATA 0. 208. 1 1 . 165.248.73. 255.45 
DATA 16.208. 141. 16.208.96. 165.2 
48 

DATA 13.16.208.141.16.208.96.16 
2 

DATA 11.108.0.3.162.14.108.0 
DATA 3.162.10.160.0.24.32.156 
DATA 255.200.132.43.134,44.169. 
0 

DATA 141.0,10,76.66,166.-2 


1000 REM *###*###*4!##*###*#*#'#*#** 


1010 REM # * 

1020 REM * PROVA SARI TE * 

1021 REM * * 

1022 REM * DI * 

i a-y-j. PPM * * 

1024 REM # ERNESTO SIDOTI 

1030 REM * * 


1040 REM #*E#**#*##*******#*##*3*# 
1056 : 

1060 PRINT" CCLEAR3 " 

1070 REM *###**##**#*#****####**** 
1030 REM * CARICO IL BLOCCO 32 * 

1090 REM ##########*#*########**## 
1100 FOR A=2048 TO 2111 ^POKE A,255:N 
EXT 
1110 : 

1120 REM Ni#*##**#*###*#*##**#*##** 
1130 REM «ABILITO LE SPRITE 0 E 1* 
1140 REM ************************* 
1150 POKE 53269,3 
1160 : 

1170 REM ############**####****### 


1180 REM * STABILISCO I -il # 

1190 REM *##**##*#***#*#*#**####** 
1200 POKE 53287, 1 
1210 POKE 53288.0 

1220 REM ************************* 
1230 REM # CRRICO I PUNTATORI * 
1240 REM **#**#**###**#.**##***##** 
1250 POKE 2040,32 
1260 POKE 2041,32 
1270 ^ 

1280 REM ***##***##*##*##***#***#* 

1290 REM * MUOVO LE SPRITE * 

1300 REM ************************* 

1310 FOR A=25 TO 319 STEP 2 

1 320 XX=fl : VK* 1 00 ^ SN7i=0 

1330 SVS49217 

1340 XX a A : V?i a 150 : SNX=1 

1350 SVS49217 

1360 NEXT 

1370 FOR A=319 TO 25 STEP -2 
1380 XX=A : VX= 1 50 ; SNJi= 1 
1390 SVS49217 
1400 NEXT 

1410 FOR R=319 TO 24 STEP -2 

1420 XX*fl : VX® 1 00 : SN5£=0 

1430 SVS49217 

1440 NEXT 

1450 GOTO 1300 

1460 X?J a R : VX* 1 00 : SNX= 1 

1470 SVS49217 

1480 NEXT 

1490 GOTO 1300 


1000 

1010 

1020 

1030 

1040 

1050 

1051 

1052 
1060 
1070 
1080 

1090 

1091 


PRINT" CCLEAR3 " 

REM ***##**#***###*****#*####* 
REM * 

REM * LAVAGNA GRAFICA 
REM # 

REM # DI 

REM * 

REM # DI ERNESTO SIDOTI 
REM * 

REM *##E*#**#####*##**#*#*S#*# 

REM ###**######*#****###*#***# 
REM * * 
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& 


1100 

nei 

1110 

1120 

1130 

1140 

1141 

1150 

1151 
1160 
1170 

lise 

1190 

1191 
1200 
1201 
1210 
1220 
1230 
1240 
1250 
1260 
1261 

1270 

1271 
1280 
1290 
1300 
1310 

1320 

1321 

1330 

1331 
134R 
1350 

1360 


1370 

1371 

1380 

1381 
1390 
1400 

1410 

1420 

1430 

1440 


REM * CARICO NEL BLOCCO 32 * 

REM * # 

REM ##****##*#*##**#*#####*### 
FOR ft=2048 TO 21 10: READ B:POKE 
fi,B : NEXT 

REM ##*##**#*##****###*###**#* 
REM * * 

REM * ABILITO LR SPRITE 6 * 

REM * # 

REM a###*#*#*####*######*##*## 
POKE 53269, 1 

REM ##**####*#*###*###*#**#*## 
REM * * 

REM * DEFINISCO IL PUNTATORE * 
REM * # 

REM ####**##*##*#**#*###*#*### 
POKE 2040,32 

LI =3 132 

X=160 : V-100 : S=1 ; D=1 
REM ##*###***»*###*#*#*#*###** 
$ $ 

# RIPETIZIONE TASTI * 

* * 
*##################*##**## 


REM 
REM 
REM 
REM 

POKE 650, 128 


GOTO 2180 

REM ***#***#****#****######**# 
REM * * 

REM * PULISCE PAGINA GRAFICA * 
REM * * 

REM #**##****####**#**######## 
FOR K=LI TO LI +7999 : POKE K,0:NE 
XT 

PR I NT " [ CLEAR ] I 1 0 DOWN] Co RIGHT] 
FINITO ! ! : FOR H=1 TO 1000-NEX 

T : GOTO 2180 

REM ************************** 
REM * * 

REM # APRE PAGINA GRAFICA * 
REM * # 

REM ###*##########*########*## 
POKE 53269, l=POKE 53272, PEEK<53 
272 > OR 8 

POKE 53265, PEEKC 53265) OR 32 
FOR R=1024 TO 2023 : POKE A,16:NE 
XT 

GOSUB 1660 

REM a#****####*******#***#***# 


1441 

1450 

1451 
1460 
1470 
1480 
1490 
1500 

1510 

1511 

1520 

1521 
1530 
1540 

1550 

1560 

1570 

1571 

1580 

1581 
1590 
1600 
1610 

1620 

1630 

1640 

1650 

1666 

1670 


1680 

1690 

1700 

1710 

1720 

1730 

.1740 

1750 

1760 

1770 

1730 

1790 


REM $ $ 

REM * MUOVO LA SPRITE * 

REM * * 

REM #########*######*##*#####* 
Z=X+12 : Q=Y+40 
XX=Z : VX* Q : SNX=0 
SVS49217 
IF H=1 THEN 1430 
REM a*##################*##### 
REM # $ 

REM * TRACCIO I PUNTI * 

REM # * 

REM ***######*###**#*###*###*# 
P=L I + 1 NT < V/8 ) #320+3* I NT ( X/8 > + < Y 
RND 7) 

POKE P, CPEEK(P) OR <2t<7-<X AND 
7) ) ) )#<-ì#F) 

GOTO 1430 

REM ###****#**##*###*#######*# 
REM * * 

REM * HATA PER LA SPRITE * 
REM * * 

REM *#####*########*##*#####*# 
DATA 0,56,0,0,124,0,0,84,0,0 
DATA 254,0,7,255, 192,255,255,25 
5,255,68 

DATA 255, 126,24, 126, 30, 24, 129,3 

0 , 0,120 

DATA 31 , 195,248, 14,0, 112, 14,24, 
112,254 

DATA 60 , 255 , 255 , 255 , 255 , 63 , 255 , 
252,3,255 

DATA 128,0, 254, 0,56, 0, 0, 56,0, 
0, 16,0 

GET Ci ■ IF Ci-"" THEN 1660 
IF C$=CHRÌ( 133) THEN JJ=< HOT J 
J) : W=JJ#-1 : D=1 + <4*W) ’ S=1 + C9*V 
V) : J=7 

IF Cf=CHR$< 134) THEN F=< NOT F) 

: J=5 

IF CÌ=CHR$< 135) THEN Tl=< NOT T 


1) 


1 J — 1 


IF 

C$= ,, 4' ,r 

THEN 

1890 

IF 

"D 11 

THEN 

X=X+S 

IF 


THEN 

x=x-s 

IF 

Cf^X 11 

THEN 

V=V+S 

IF 

C$*”U M 

THEN 

V=V-S 

IF 

C$= ,r Q'' 

THEN 

X=X-D ^ Y=V-B 

IF 

C$= ,, C ,J 

THEN 

X=X+D : Y=Y+D 

IF 

C$="E* J 

THEN 

X=X+D : V=V-D 

IF 

C$= ,I Z H 

THEN 

X=X-D : V=V+D 

IF 

V<0 THEN V= 1 99 

\ 
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1800 
1810 
1820 
1830 
1848 

1850 

1851 
1860 
1861 

1870 

1871 
1880 
1880 
1300 

1910 
1320 
1930 
1940 
1950 
1360 
1970 
1980 
1990 
2000 
2081 
2010 
2011 
2020 
2021 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


IF X>320 THEN X=0 
IF X<0 THEN X=320 
IF V>199 THEN V=0 
PQKE 53287, J 
RETURN 
REM 

REM * * 

REM * DISABILITO IL VIDEO E * 

REM * * 

REM * SCRIVO SU PERIFERICA * 

REM # * 

REM 

POKE 53272, 21 : POKE 53265,27 
POKE 53269,0 : PRINT" CCLERR3 " : GOT 
0 2180 

OPEN 2,8,2, "@:"+M*+",S,W” 

POKE 53265, PEEK<53265> AND 239 
FOR fl=8192 TO 16191 
V=PEEK<R) 

PRINT#2,VCHR*(13); 

NEXT 
CLOSE 2 

POKE 53265, PEEKC 53265) OR 16 
RETURN 

REM ************************** 
REM # # 

REM # DISABILITO IL VIDEO E * 
REM * * 

REM * LEGGO DA PERIFERICA * 
REM * * 

REM *##**#*####*##*#*##*##*### 
OPEN 2,8,2, " "+M$+",S,R" 

POKE 53265, PEEKC 53265) AND 239 

FOR A=3132 TO 16191 

INPUT#2, V 

POKE A, V 

NEXT 

CLOSE 2 

POKE 53265, PEEK(53265) OR 16 
RETURN 

REM fri*####*###*####*;###**###** 

REM $ $ 

REM * CREAZIONE MENU' * 
REM # # 

rem 

PRINT" [OLEARI " 

POKE 53280,12 =POKE 53231,12 
PRINT" CMARR] n n" 

PR I NT " r~ " 

PRINT" I r ■n I " 

FOR N=1 TO 8 

PRINT" I I CRVS3CNER03 L 


RVOFF3CMRRR3I I" 

2250 NEXT 

2260 PRINT" I 1 J I " 

2270 PRINT" I- H" 

2280 PRINT" — tt — -rr — i-r — " 
2230 FOR N=1 TO 7 
2300 PRINT" (I I t " 

2310 NEXT 

2320 PRINT" •-> i-i ■■ 

2330 PRINT "[4 UP3 H 1 — H V — H p 


2340 PRINT" [6 UP3I7 RIGHT] I I " 

2350 PRINT" L7 RIGHT 3 I t " 

2360 PRINT" C7 RIGHT 3 I I " 

2370 PRINT" [7 RIGHT] I I" 

2330 PRINT" [7 RIGHT 3 I I" 

2390 PRINT" [UP3C7 RIGHT] II" 

2400 PRINT" [7 RIGHT] 

2410 PR I NT " [ HOME 3 " 1 U- 1 6 
2420 PRINT TABCU)" 1 ) PULISCE PAGINA" 
SPRINT 

2430 PRINT TABCU) "2) APRE PAGINA" :PR 
IHT 

2440 PRINT TABCU) "3) LEGGE DA PERIFE 
RICA" : PRINT 

2450 PRINT TABCU) ”4) SCRIVE SU PERIF 
ERICA" : PRINT 

2460 PRINT TRB CU )’**•) ESCE DA PAG. GR 
AFICA" : PRINT 

2470 PRINT TABCU) "FI) AVANZAMENTO VE 
L/LEN" : PRINT 

2480 PRINT TRBCU) "F3) CANCELLAZIONE" 
:PRINT 

2490 PRINT TABCU) "F5) ALZA/ABBAS PEN 
NELLO" : PRINT 
2500 PRINT" CH0ME3" 

2510 PRINT" [4 RIGHT3 C5 D0WN3 [RVS3 [NE 
RO 3 LAVAGNA" 

2520 PRIMI" [5 RIGHTKDOWN3CRVS3INERO 
3GRAF I CA C RVOFF 3 [ MRRR3 » 

2530 GET K# : I F K*="" THEN 2530 
2540 IF K$=“ 1 " THEN 1350 

2550 IF Kf="2" THEN 1400 

2560 IF K$="3" THEN 2600 

2570 IF K$="4" THEN 2590 

2530 GOTO 2530 

2590 INPUT " [CLEAR] [2 RIGHI] [7 DOWN 3 
SCRIVI IL NOME DEL FILE ";M$:GQ 
SUB 1910: GOTO 2180 
2600 INPUT " CCLEAR3 [2 RIGHT][7 D0WN3 
SCRIVI IL NOME DEL FILE ";M$:GO 
SUB 2040: GOTO 2130 
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SUPERLIFE 

di Marco De Rosa 


Life è un gioco di simulazione in- 
ventato da John Conway, matema- 
tico all' università di Cam briga. 
L'idea base è di cominciare con 
una semplice configurazione di or- 
ganismi, osservando come questa 
configurazione iniziale si trasforma 
applicando le leggi genetiche di 
Conway. 

Le leggi sono le seguenti: 

1 . Sopravvivenza: ogni organismo 
con due o tre vicini sopravvive fino 
alla generazione seguente. 

2. Morte: ogni organismo con quat- 
tro o più vicini muore per sovrappo- 
polazione, Ogni organismo con un 
solo o nessun vicino muore per iso- 
lamento. 

3. Nascita: in ogni cella vuota con 
esattamente tre vicini nasce un 
nuovo organismo. 

Queste regole sono state scelte da 
Conway molto accuratamente do- 
po parecchi esperimenti, in modo 
da soddisfare i requisiti seguenti: 

a) non deve esserci una configura- 
zione iniziale per la quale esista 
una semplice dimostrazione della 
possibilità di un aumento illimitato 
della popolazione, 

b) Devono esistere configurazioni 
iniziali che evidentemente aumen- 
tino oltre ogni limite. 

c) Devono esistere semplici confi- 
gurazioni iniziali che crescono e si 
modificano per un perìodo di tem- 
po considerevole prima di giunge- 
re a una fine di uno dei tre modi se- 
guenti: estinzione completa (per so- 
vrappopolazione o per troppa rare- 
fazione), stabilizzazione in una con- 
figurazione immutabile, subentro di 
una fase oscillatoria che ripete un 
ciclo infinito di due o più perìodi. 
Vediamo ora cosa succede esami- 
nando configurazioni semplici un 


organismo isolato o una qualsiasi 
coppia sì estinguono alla prima 
mossa. Le cinque configurazioni di 
tre cellule si estinguono o giungo- 
no ad una configurazione stabile in 
una generazione. Le configurazio- 
ni dì quattro elementi sono molto 
più interessanti. Provate ad esem- 
pio il tetromino dì figura 1 , che giun- 
ge ad uno stato stabile in 9 gene- 
razioni. 

Le previsioni si fanno più complica- 
te quando si arriva a configurazio- 
ni di 5 elementi. È da provare II pen- 
tornino "erre" dr figura 2 r che im- 
piega ben 1 1 03 generazioni prima 
di stabilizzarsi (ma uscirà dallo 
schermo del vostro CBM 64 prima 
che riusciate ad arrivarci). Configu- 
razioni ancora più belle da vedere 
sullo schermo sono te catene dì n 
elementi (fig. 3). Provate per esem- 
plo la 5-5-5-5-S. Un'altra splendida 
scoperta di Conway sono gli alian- 
ti, è cioè delle figure che si sposta- 
no sullo schermo ricostruendosi do- 
po un certo numero di mosse. Pro- 
vate l'aliante a cinque organismi 

(fig- 4). 

Dopo la diffusione del gioco sono 
state fatte dalle scoperte interes- 
santissime di cui cito le più strane 
e affascinanti: un cannone che spa- 
ra alianti (un esempio dì configura- 
zione che cresce all' infinito); alian- 
ti di lunghezze che vanno da cinque 
organismi fino al r infinito, ma che 
per viaggiare senza morire devono 
essere scortate da altri alianti! (ne 
ho vista una di cento organismi 
scortata da 33 alianti standard); 
strane macchine mangia aitanti 
(provate a costruire un cannone 
che spara alianti ì quali vengono 
mangiati da una macchina); una 
configurazione di 13 alianti che col- 


lìdono formando un cannone che a 
sua volta spara alianti III fi mio con- 
sìglio a questo punto è di provare 
le figure che ho proposto e tutte 
quelle che vi vengono in mente, co- 
municandoci le vostre scoperte. 
Vedrete come la popolazione varia 
continuamente, assumendo confi- 
gurazioni spesso bellissime e sem- 
pre impreviste, che si arricchisco- 
no di simmetrìe inaspettate. 
Leggete gli articoli dì Martin Gard- 
ner sui numeri di Scientific Ameri- 
can (edizione americana) che van- 
no dall'ottobre 1970 al febbraio 
1971: sono molto belli (e io gli de- 
vo molto). 

Istruzioni per ruso 

Caricate il programma e date il 
RUM, Dopo alcuni secondi il Pro- 
gramma chiederà la configurazione 
iniziale. Inserite le righe una alla 
volta, ricordando che il "Punto" si- 
gnifica cella vuota, e qualsiasi altro 
carattere significa cella piena. Se 
dovete inserire delle righe comple- 
tamente vuote, digitate almeno un 
punto. Per terminare premete re- 
turn a vuoto. Il Programma vi avver- 
te in caso di estinzione totale ed in 
caso di sconfinamento dal bordo 
dello schermo. 

Descrizione del programma 

I due grossi problemi che si presen- 
tano nella realizzazione di LIFE ri- 
guardano il numero massimo di or- 
ganismi visualizzabili sullo scher- 
mo, e la velocità di elaborazione, 
che evidentemente dipende da 
questo nùmero. 

La pagina schermo del CBM 64 li- 
mita a mille, in bassa risoluzione, 
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ir numero di caratteri visualizzabili 
sullo schermo (40 righe * 25 colon- 
ne). Andare in alta risoluzione con 
il Basic residente comporterebbe 
l'uso dì una serie di routine che ral- 
lenterebbero troppo il Programma, 
senza contare il grande dispendio 
di memoria che ne deriverebbe 
(provate ad immaginare una matri- 
ce 230*200). Inoltre la visualizza- 
zione delle popolazioni sarebbe po- 
co definita. 

Il sistema da me adottato è una via 
di mezzo, che porta il numero di ri- 
ghe e colonne rispettivamente a 50 
e 80, mediante l'utilizzo dì una se- 
ri© di caratteri ridefìnitì. Ognuno di 
questi caratteri rappresenta una 
delle 16 possibili combinazioni di 
cerchietti dì 4 Pixel di diametro, 
dentro un quadrato di 8 Pixel di la- 
to (vedi figura 5). Una volta esegui- 
ti i calcoli relativi alle nascite e alle 
morti, il programma, invece di 
stampare una cella alla volta, ne 
esamina 4 insieme, e tramite una 
codifica binaria sceglie quale dei 16 
caratteri rappresenta quella combi- 
nazione dì 4 celle. In questo- modo 
il numero di organismi rappresen- 
tabili arriva a 4000 (in realtà sono 
di meno dato che due righe sono 
occupate dal testo). 

Il secondo problema è di più diffici- 
le soluzione, rimanendo in ambien- 
te Basic. Per ognuna delle 4000 


celle, devono, per ogni generazio- 
ne, essere contati gli organismi 
adiacenti. Il programma minimizza 
questo tempo, scegliendo ogni vol- 
ta il più piccolo rettangolo in cui è 
significativo eseguire questo con- 
trollo. Anche la stampa avviene in 
un rettangolo simile. Nonostante 
tutto, la lentezza può in alcuni casi 
essere esasperante. L'unica solu- 
zione rimane la compilazione in lin- 
guaggio macchina. Il più diffuso 
compilatore Basic per il CBM 64 è 
tl PetSpeed, che è anche it miglio- 
re, ma purtroppo porta la lunghez- 
za del programma da 1 0 a 1 05 set- 
tori! Questo crea un altro problema: 
il chip video può indirizzare 16K al- 
la volta, e in questi 16K devono es- 
serci contemporaneamente la pagi- 
na schermo e i caratteri speciali. Si 
è reso dunque necessario sposta- 
re tutte e due le cose nei (mitici) 4K 
disponibili dopo la ROM Basic. 

Ma vediamo il listato: 

1: abilita il tasto dì STOP nel caso 
di una compilazione con PetSpeed; 
2: va alla routine di inìziafizzazìone 
caratteri e schermo; 

3-30; inìzialìzzazìone variabili; 
35-80: input configurazione inizia- 
le; 

85-180: riempie la matrice iniziale, 
centrando la configurazione sullo 
schermo. Ogni organismo è indica- 
to con un uno, ogni cella vuota con 


uno zero; 

1 80-220: messaggi di inizio scher- 
mata; 

230-200; riconferma la matrice per 
la stampa, mettendo i nati (indicati 
con 3) a 1 e I morti (indicati con 2) 
a zero; 

291-294: decodifica 4 celle adia- 
centi e stampa il carattere specia- 
le corrispondente; 

299-307: controlla se la configura- 
zione è uscirà da uno dei bordi, nel 
qual caso setta 19=1; 

309-650: esegue i controlli sufi e na- 
scite e le morti ponendole rispetti- 
vamente uguali a 3 e 2; 
1000-1050: spegne la routine che 
controlla automaticamente la tastie- 
ra; accende la ROM dei caratteri; 
copia i primi 64 caratteri dalla loca- 
zione 53248 alla locazione 51200; 
spegne la ROM dei caratteri; riatti- 
va la routine di tastiera; 
1060-1100: cambia il numero di 
Bank accessibile dal chip video, 
portandolo a 0 a 3; cambia l'indiriz- 
zo delia memoria di schermo por- 
tandolo a 49152; cambia l'indirizzo 
della memoria dei caratteri portan- 
dolo a 51200; 

1110-1112: definisce i caratteri 
speciali, ricopiando i DATA nelle lo- 
cazioni corrispondenti; 

2000-2150: codifica decimale dei 
nuovi caratteri. Ogni riga di DATA 
è un carattere. 


1 REM !ES 

2 GOSUB 1080 

3 Din fl<44/?6>/BS<44> 

5 PRINT 11 ECLEflR ] " : X2=44 : V2=76 : P=0 
:G“1=I9SS 

30 t>l=P0KE 53280,- 246 : R0KE 53281, 
246 

35 PR I NT 11 C0HF I GUR A2 1 ONE INIZIALE - 

ii 

40 INPUT B$tC> : L=LEHCB$<C> > : IF L> 
73 THEN L=73 

50 IF L=0 THEN PRINT" ECLEAR3 " = GOT 
0 80 

55 1 j L? 

60 C=C+I 

70 IF COÌ2 THEN 40 
80 IF C=1 THEN 5 
85 L=0 


88 FOP X=1 T0 C 

100 IF LEN<BfOO»L THEN L“LEN<B 

118 NEXTX 

120 XI =22-0/2 

130 Yi=3S-L/2 

140 F0R X=1 TG C-l 

150 FQR Y=1 T0 LEN<B*CX)> 

168 IF MID$CE$00*Y, 1)0". " THEN R 
CX+X1, V+Y1}=1 -P=P+1 
170 NEXTV 
180 NEXTX 
190 X2=X1+C 
280 IF PO0 THEN 210 
295 FRI NT" [OLEARI GENERAZIONE : 0; " 
POPOLAZIONE ESTINTA" 

203 F0R X=1 T0 1060: NEXTX = RUN 
210 PRINT" C HOME 3 GENERAZIONE : " JGJ " 


Commodore - 53 


POPOLRZ I ONE : " ; RIGHTf < " 0008 " +ST 

R»<P> # 4>; 

215 IF 1900 THEN PRINT" [RV51EDRB 
I" 

216 PRINT 

218 X3=44:V3=76:X4»1V4=1 


650 
tyS0 
1010 
1020 
1 030 


220 G=G+ 1 

230 FOR X=X1 TO X2 

250 FOR Y=Y1 TO Y2 

253 IF R < X , V > =2 THEN fKX,V)=0 

256 IF R<X,V>=3 THEN R<X,Y>=1 

260 IF Fl<X,Y>01 THEN 270 

262 IF X<X3 THEN X3=X 

264 IF 0X4 THEN X4=X 

266 IF V<Y3 THEN V3=Y 

268 IF Y>V4 THEN Y4=V 

270 NEXTY 

290 NEXTX 

291 FOR X=1 TO X2 STEP 2 : PRINT 

292 FOR Y=1 TO Y2 STEP 2:MU=flCX,Y) 
*8+R< X , Y+ 1 ) *4+R < X+ 1 , Y ) *2+fì < X+ 1 

, V+l ) 

293 PRINTRSCMU); 

294 NEXTY : NEXTX 

299 X 1 =X3 : X2=X4 : V 1=V3 : Y2=V4 : 1 9=0 
301 IF Xl<3 THEN Xl=3= I9=-l 
303 IF X2>42 THEN X2=42I9=-1 
305 IF Yl<3 THEN Vl=3: I9=-l 
387 IF Y2>74 THEN Y2=74:I9=-1 
3^9 F'=0 

506 FOR X=X1-1 TO X2+1 
510 FOR V=Y1-1 TO Y2+1 
520 0=0 


530 

FOR 1 = 

X-l 

TC 

) X+l 


548 

FOR J= 

V— 1 

TC 

i Y+l 


550 

IF R( I 

, J> 

= 1 

THEN 

C=C+1 

555 

IF R(I 

, J> 

=2 

THEN 

C=C+1 

566 

NEXTJ 





576 

NEXTI 





588 

IF R(X 

,v> 

=0 

THEN 

610 

582 

P=P+1 





584 

IF 0=3 

THEN 

620 


586 

IF C=4 

THEN 

628 


588 

P=P-1 






1040 
1850 
1 060 
1070 

1 080 

1090 

1100 

1110 

lui 

1112 

1115 

1120 

1130 

1149 

1 150 


1160 

2000 

2010 

2020 

2030 

2040 

2@50 

2060 

2070 

2088 

2090 

2100 


590 fì(X,V>=2 
600 GOTO 620 

610 IF C=3 THEN fì<X,V>=3: P=P+1 
620 NEXTY 
630 NEXTX 

635 X1=X1-1 : V1=Y1~1 : X2=X2+1 : V2=Y2+ 
1 

640 GOTO 200 


£110 

2120 

2139 

£140 

2158 


END 

POKE 56334, PEÈK< 56334 > RND 254 
POKE 1 , PEEK< 1 > RND 251 
FOR 1=0 TO 511 

POKE 5 1 200+ 1 .■ PEEK < 53248+ 1 ) : NEX 
TI 

POKE 1 , PEEK ( 1 ) OR 4 
POKE 56334, PEEK < 56334 > OR 1 
POKE 56578 , PEEK ( 56578 > OR 3 
POKE 56576, < PEEK ( 56576 > RND 25 
2) OR 0 

POKE 53272, < PEEK C 53272 ? RND 15 
) OR 8 

POKE 648, 192 

POKE 53272, (PEEK <53272 > AND 24 
@> OR' 2 

FOR 1=51480 TO 51533 = RERD WW = P 
OKE I ,WI4 : NEXTI 

FOR 1=51416 TO 51471 : RERD UN : P 
OKE I, UN : NEXTI 

FOR 1=51544 TO 51559 :RERB WW = P 
OKE I, UN: NEXTI 
DIN R$< 16) 

R$(0)=" " : R$< 1 )*"#" : fl* <2) = '*$ " = 
R$(3> = ‘'X" 

fì$<4y = "&" :fì$<5>="E" ; R$(S)="£" : 
Rf<7) = '‘ I " 

Rf <8)=" ' " = R$<9)=” < " : R$ <ltì>=" ? " 
:fiJ(ll)=" t" 

«*<12) = “+" :R$(13)=" ! ":fl$<14)=" 
+" :R$<15)=", ” 

RETURN 

DRTR 0,0,0,0,6,15,15,6 
DRTR 0 , 6, 0, 8, 96, 240, 240 , 96 
DRTR 0,8,0,0,182, 255 , £55 , 1 02 
DRTR 6, 15, 15,6,0,0,0,0 
DRTR 96, 24@, 248, 96, 0, 8, 0, 0 
DRTR 96 , 248 , 24@ , 96 , 6 , 1 5 , 1 5 , 6 
DRTR 96, 240,240, 96, 96, 240,248, 
96 

DflTR 6,15,15,6,6,15,15,6 
DRTR 6,15, 15,6,96,240,240,96 
DRTR 6, 15, 15,6, 102,255,255, 102 
DRTR 96, 240, 240,96, 102, 255,255 
, 102 

DRTR 1 02, £55 , 255 ,102, 3 , 0,0, @ 
DRTR 0,0, 0,6, 0,0, 0,0 
DRTR 102,255,255, 102,6, 15, 15,6 
DRTR 102, 255, 255, 182, 96, 248, 24 
0,96 

DRTR 1 02 , 255 , 255 , 102,1 02 , 255 , 2 
55, 102 
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FATTORI PRIMI 
M.C.D. e m.c.m. 

df Mauro Masseti! 

Scomposizione di numeri in fattori primi, ricerca del massimo 
comun divisore e del minimo comun multiplo fra due numeri 


L'operazione di scomposizione dì 
un numero nei suoi fattori primi non 
presenta particolari difficoltà quan- 
do si deve affrontare questo proble- 
ma con l’ausilio di un calcolatore 
elettronico. 

A tal proposito esistono diversi 
programmi che, sfruttando vari al- 
goritmi, pervengono al risultato vo- 
luto. 

Quello che propongo è forse il più 
semplice: considera il numero e io 
divide per un fattore che, partendo 
dal valore 2 , viene costantemente 
incrementato di 1 sino a che il re- 
sto della divisione non risulti ugua- 
le a zero, 

A questo punto il numero da con- 
siderare è il risultato della divisione 
e tutto ricomincia di nuovo. 

Sì ottiene così una scomposizio- 
ne dove ì vari componenti compaio- 
no in ordine crescente di grandez- 
za. 

£ dì ovvia constatazione che il nu- 
mero considerato, nel caso in cui 
non risulti divisibile esattamente per 
nessun fattore minore o uguale alla 
metà del numero stesso, sia un nu- 
mero primo. 

Si può affrontare quindi il proble- 
ma deha ricerca del massimo co- 


mun divisore (MGD) e del minimo 
comun multiplo (mcm) fra due nu- 
meri. 

Per cominciare carichiamo i fat- 
tori di scomposizione dì due nume- 
ri (trovati con il metodo sopra cita- 
to) in due vettori. 

M.C.D* — m.c.m* Tutti dovrebbe- 
ro sapere che per trovare il massi- 
mo comun divisore si deve conside- 
rare solamente ì fattori che com- 
paiono in entrambi i vettori con 
esponente mìnimo (si noti che tutti 
i fattori nei vettori hanno esponen- 
te 11) mentre per il minimo comun 
multiplo vanno considerati tutti ì fat- 
tori diversi fra loro più quelli uguali 
con esponente massimo. 

Pare quindi che la ricerca del mi- 
nimo comun multiplo possa presen- 
tare problemi più seri che non quella 
per it massimo comun divisore ma, 
utilizzando il metodo proposto si 
può facilmente constatare che, se si 
ricerca prima il massimo comun di- 
visore, con gli elementi a nostra di- 
sposizione la ricerca del minimo co- 
mun multiplo diviene immediata. 

Per esempio cerchiamo il massi- 
mo comun divisore di due numeri 
qualsiasi: 

100 e 90. 


La scomposizione in fattori primi 
fornisce: 


Tabella 1 


100 | 2 
50 ) 2 
25 | 5 
5 | 5 



e 


90 | 2 
45 | 3 
15 j 3 
5 | 5 



Poniamo ora il valore del MCD 
uguale a 1 ed operiamo come se- 
gue: consideriamo il primo fattore in 
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COMPUTER 
QUESTO 
MESE 
È QUESTO 


— Jl DUI Il RII WUJm II, j I,r 




Tutte le stampanti 


Cosa vedere 
al prossimo 
Smau 


Data base: 
come sceglierli 


Ed ecco 
il transputer 


Benchmark: 
il People Olympia 
un anno dopo 




finente 



PERSONAL 

COMPUTER 



1t sistema MUSIC 64 
è costituito da una Tastiera 
musicale, un Modulo d‘ interfaccia 
e dal relativo Software, da usare 
in combinazione con un Elaboratore 
COMMODORE 64 
per ottenére uno strumento 
musicale dalle notevoli capacità. 

SPECIFICHE TECNICHE 

TASTIERA 

49 tasti, 4 ottave da DO a DO 

• 

Tasti a passo professionale 
* 

Mobile in materiale plastico 
antiurto 

* 

Modulo d'interfaccia con cavo 
di collegamento 

SOFTWARE 

fornito su Cassetta 
o su Floppy Disk 
da 5 1/4” 

* 

MONO 64 per avere 
un Sintetizzatore Monofonico 

« 

POLY 64 per avere 
una Tastiera Polifonica 

* 

Fornito in versione databile 
e modificabile 

SISTEMA RICHIESTO 

COMMODRE 64 

• 

Unità a Cassette 
o Floppy Disk Drive 

• 

Monitor o ricevitore TV 

* 

Amplificatore per strumenti 
o impianto Stereo (opzionale) 

Per informazioni 
spedire cartolina postale a. 

Nove! International 

P.O, BOX ISO 
62019 Recanati (MC) 


A (nel nostro esempio = 2) e con- 
frontiamolo con tutti i valori in B si- 
no a che non ne troviamo uno ugua- 
le (per caso forse strano è il primo); 
se questa condizione si verifica mol- 
tiplichiamo il MCD per il fattore B (j) 
(per cui si farà 1 *2) e poniamo zero 
in B (J) per evitare che nella scan- 
sione successiva venga ripreso in 
considerazione lo stesso valore. 

Ripetiamo quanto sopra per ogni 
fattore in A ed alla fine avremo il 
MCD cercato* 

In pratica il programma procede 

cosi: 


primo passo . 2- 
2 
5 
5 

2 

secondo passo • 2^; 

5 

5 

2 

2 

terzo passo • 

5 

2 

2 

5 , 

quarto passo * b- 


A questo punto ci si accorge che, 
grazie alla precedente metodologia 
operativa, il prodotto dei fattori di- 
versi da zero rimasti nei vettori A e 
Bèi! mcm cercato. 

È sufficiente quindi scandire gli 
elementi di entrambi i vettori e mol- 
tiplicare fra loro quelli significativi 
per risolvere anche l'ultima propo- 
sizione. 

A conclusione alleghiamo il lista- 
to del programma che volutamente 
è stato corredato di numerose REM 
per facilitare la comprensione delle 
funzioni delle varie routines* 


VETTORE B 

I 

"-► 2^—0 

3 , * s — * MCD = MCD * 2=2 

3 

5 


- O 

- - -3 MCD=MCD=2 

: C'3 

, 0 

■ 3 — MCD=MCD»5=10 

" — 0 


,0 

, .3 

^ ,3 MCD = MCD =10 

- -0 


Tabella 2 

VETTORE A 

MCD =1 
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Computer questo mese é questo. . . 

E QUESTO ... 


100 REM ************************* 

IR 

105 REM » 

* 

110 REM « SCOMPOSIZIONE DI UN NUM 
ERO * 

115 REM * IN FATTORI PRIMI 
* 

120 REM * CALCOLO DEL MD E DEL MM 
# 

125 REM * FRA DUE NUMERI 
$ 

130 REM * 

* 

. 135 REM * AUTORE: MAURO MASSETTI 

* 

140 REM # 

# 

145 REM ************************* 
150 REM 

155 REM *# INIZIO PROGRAMMA 

*** 

160 REM 

165 DIM A<50) j BC50) 

170 REM 

175 REM ********************** 
180 REM * INPUT PRIMO NUMERO * 

185 rem ********************** 

190 INPUT " CCLEAR ] IMPOSTARE IL' PR 
IMO NUMERO [7 LEFT 3 " J N ; 

SW=0 

195 FLAG=0 
200 KO= 1 
205 FRI NT 
218 A(0)=N 

215 1=2 

220 REM ************************ 

225 REM * FAT. SCOMPOSIZIONE MIN 
IMO # 

230 REM ************************ 
***** 

235 REM * RICERCA DEI FATTORI PR 
IMI # 

240 REM ************************ 
***** 

245 IF I=N THEN 350 


250 IF I>N THEN 190 
255 IF (<N7I)-INTCN7I))=0 THEN 27 
5 

260 IF I>N/2 THEN I=N=GOTO 350 
265 1 = 1 + 1 
270 GOTO 245 
275 FLAG=1 
280 X=N 
285 GOSUE 780 
290 PRINTCHR»<98>; I 
295 REM ************************ 
*** 

300 REM * CAR. FATTORE SU VETTOR 
E * 

305 REM ************************ 
*** 

310 N=H/I 

315 A(KO)-I 

320 KQ=KO+l 

325 IF N=1 THEN 360 

330 GOTO 215 

335 REM ************************ 

340 REM * SEGNALAZIONE NUMERO PR 
IMO * 

T; c 7 . PPM 

350 IF*FLAG=0 THEN PRINTN; "E' N.P 
RIMO" : ACl?=N : K0-2: GOTO 360 
355 GOTO 275 
360 PRINT 
365 PRINT 

379 TN=KO-l 

375 REM ************************ 

380 REM * INPUT SECONDO NUMERO * 
385 REM ************************ 
390 INPUT "[HOME] IMPOSTARE IL SEC 

ONDO NUMERO C7 LEFT]" J M 

: 3W=1 

395 FLAGRO 
400 KO-1 
405 PRINT 
410 B ( 0 > =M 
415 1=2 

420 REM ************************ 
***** 

425 REM * FAT, SCOMPOSIZIONE MIN 
IMO * 

430 REM ************************ 

435 REM * RICERCA DEI FATTORI PR 
IMI * 
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440 REM ************************ 

445 IF I=M THEN 550 
450 IF I>f1 THEN 390 
455 IF <(M/I)~INT(M/I>>=0 THEN 47 
5 

460 IF I>M/2 THEN I=MGOTO 550 
465 1=1+1 
470 GOTO 445 
475 FLAG=1 
480 X=M 
485 GOSUE 780 
490 PRINTCHR$<98>; I 
495 REM ************************ 
***** 

500 REM * CARIC. FATTORE SU VETT 
ORE * 

505 REM ************************ 
***** 

510 M=M/I 

515 B<KQ)=I 

520 KO=KO+l 

525 IF t1=l THEN 575 

530 GOTO 415 

535 REM ************************ 

540 REH * SEGNRLRZ I ONE NUMERO PR 
IMO * 

545 REM ************************ 
***** 

550 IF FLRG=0 THEN PRINT TRB(20*S 
W)M"E" N. PRIMO" : B< 1 )=M : K0=2 : G 
OTO 575 
555 GOTO 475 

560 REM ************************ 
*** 

565 REM * RICERCO DEL MB E DEL M 
M * 

570 REM ************************ 
*** 

575 PRINT 
580 PRINT 
585 TM=KQ-1 
590 MD=1 
595 MM=1 

600 REM ************************ 
**** 

605 REM * SCRNSIOHE VETTORI PER 
MB * 

610 REM ************************ 
**** 

615 FOR 1=1 TO TN 


620 FOR J=1 TO TM 
625 REM ************************ 
630 REM * RGGIORNRMEHTO BEL MB * 
635 REM ************************ 
640 IF fi( I >=B( J) THEN MD=MD*B<J>= 

B< J)=0 : J=TM 
645 NEXTJ 
650 NEXTI 

655 REM ************************ 
** 

660 REM * VISUAL I ZZRZ I ONE DEL MB 
* 

665 REM ************************ 
** 

670 PRINT" [HOME] C 16 DOWN] IL MRSSI 
MO COMUN DIVISORE" 

675 PRINT'TRR I NUMERI 
680 PRINTSTR*(R(0>); " E ";STR$<B< 
0));" E": CRVS] ";STR$<MD)] " 

[ RVOFF ] " 

685 REM ************************ 
***** 

690 REM * SCANSIONE VETTORI PER 
MM * 

695 REM ************************ 
**** 

700 FOR 1=1 TO TN 

7@5 IF A( 1)00 THEN MM=MM*fl< I > 

710 NEXTI 

715 FOR 1=1 TO TM 

720 IF BCIK>0 THEN MM=MM*B(I) 

725 NEXTI 

730 REM ************************ 
$$ 

735 REM * VISUALIZZAZIONE BEL MM . 
* 

740 REM ************************ 
** 

745 PRINT" IL MINIMO COMUN MULTI PL 
0 " 

750 PRINT" FRA I NUMERI 
755 PRINTSTR$(FK0 ) ) > " E ";STR$(B< 
0?);" E' ■ [RVSD ’SSTRJCMM); " 
[RVOFF]" 

760 PRINT 

765 INPUT "CONTINUI (S/M)" J S$ 

770 IF LEFT$(S$j 1 )="S" THEN 190 
775 END 

780 X$=STR$(X)+" " 

785 X=11-LEN(X$) 

790 PRINT TRB(20*SW)SPC(X);Xt; :RE 
TURN 
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Vendo numerosissimi programmi 
per Commodore 64, giochi, utility 
oltre 500 inoli. Scrivere e Paolo 
Lambrl - Vìa Alfieri 60 - Sesto San 
Giovanni (Mirano), 
vendo / Compro Consolle Alari 
2600 con jostloks e piarteli ws più B 
cassette (tra cui Decathlon ■ Kiinga- 
roo e altri) ancora imballalo ad un 
prozzo d'occasione. Compro Gom 
modera 64 o computer SEGA SC 
3 000 alle coedizioni sopra diate. 
(Bsrzon Furio > Via per Nogarè n. 
51 35100 Belluno Tel, 0437 / 

26681 ore pasti). 

Vendo t Compro / Cambio. Cam- 
bio molti programmi per Commodo- 
re 64 richiedere il listato, prezzi da 
regalo. Per acquisti superiore alle 
50.000 L. 5,000 per programma (w 
deogames) e 15 000 per l'utility 
(con manuale a parte) Compro 
floppy 1541 occasiona (Rizzi Fa* 
bnzio - Via Castello n. 3060B 
30122 Venezia - Tel, 041 / 22BS3 te- 
foforwe al martino dopo le 10). 
Vendo per VlC 20 2 cartucce: Ad 
venturetand, Snake byte, prezzo da 
concordare. (Ferrari Fabio Via 
Araldi n 5-29100 Piacenza * Tei 
0523 f 753283. Scrivere o telefona- 
re dopo le ore 1 9}. 

Vendo numerosi programmi per 
Commodore 64 Sono interessato 
anche a campi e acquisti dt alm pro- 
grammi. Telefonare o scrivere in- 
viando eventuali liste a: Penati Fer- 
rano Ottavio - Via L L Cador na , 1 2 
- 22053 Lecco * Tel. 034 1 1 3683G0 
(mattino e ore pasti), 

Vendo t Cambio software per CftM 
64, circa 200 programmi e Commo- 
dore VlC 20 Circa 1 000 program- 
mi per contatti scrivere o telefona- 
re (Zanella Lionello ■ Via Virgilio 21 

■ 74025 Marina di Gtnosa (Taranto) 
Tel 090 t 677090 oro pasti) 
Vendo / Cambio per Commodore 
64 giochi e utility su disco 0 naslro. 
Annuncio sempre valido. Scrivere 
o telefonare (Patissi Eraldo - Viale 
dei Mughetti n. 36 - 10151 Torino 

■ Tal. Gli i 734354 ore pasti) 
Vendo pocket group ledo per VlC 
20, Cabine! alimentato d'espansi 
m super espander, Aid's program- 
mar. Sharp PC 1500 + «lampante 
CE 150- Per CBM 64 centinaia di 
program mi di ogni tipo a prezzi mo- 
desti. Hewlett Packard HP 150 otti- 
mi programmi originali (Pocket 
Group Club utenti Commodore Pu- 
glia- Via Àmoruso m. 34- 70124 Ba- 
ri). 


Vendo / Cambio programmi per 
C64 (lutti in LM). Telefonate o chie- 
dale lo lista, (Mauro Di Cecca - Via 
De Rubeis n. 14 - 33043 Dividale - 
Udine ■ Tot. 0432 / 730912). 
Vendo giochi per CBM 64; pefo po- 
siiion, può man. hunchback. mon- 
etai soccer, Congo bongo, faleon 
patrpl su una cassetta a L, 20 000 
(spese di spedizione comprese) 
Mandatemi i soldi, spedirò la cas- 
setta con tuffi i giochi [Stefano Ca- 
racciolo - C,so Italia n. 281 E - 16145 
Genova Tel 010 f 300453 ore 
12-14). 

Vendo per CBM centinaia di pro- 
grammi In LJM a prezzi increduli sia 
su nastro che su disco. Es,: Zaxxon 
L. 5.DO0, Blue Max L. 3.000, Music 
constructionsel L. 12 00O, Simon 
Basic L 2 500. (Fugazzoia Davide 

- Via B. D Aliano 2-20146 Milano 
■ Tel 02 / 4229466 ore pasti). 
Vendo par Commodore 64 Srmon's 
Basic +■ 3 dimostrazioni L. 60.000. 
Vendo anche cassetta con Turò ta- 
pe (che rende U caricamento 10 vol- 
te più veloce) ■+■ 40 stupendi giochi 
(lutti con turbo) a L. 200 000. per re- 
gjatrttora 1 530 model C2N (Lucio 
Fiorantino ■ Vìa Gramsci 5 - BOI 22 
Napoli - Tel. 061 / 680150 ore 
2f>22) 

Vendo t Cambio tutti i programmi 
per Commodore $4. Posseggo i mi- 
gliori giochi a presi stracciati. Ven- 
do inoltre Simon’s Basic su casset- 
ta a L, 10.D0C e tanti altri spedico 
lista gratis (Galle Domenico - Via 
Cida Guido n. 36 - 68029 Serra San 
Bruno * Tal. 0963 / 71210). 

Vendo Corso Basic per CBM 64. 
originale Commodore, interamente 
in italiano, comprendente manuale 
+ 2 cassette, il lutto a L 40.000 
(Ivano Ursini - Viale J.F. Kennedy 
n. 96 - 65100 Pescara - Tel 065 / 
76049 dre 13.30-17). 

Vendo f Compro / Cambio vastis- 
sima gamma di programmi per Vie 
20, gestionali, intona Icio e mire 206 
giochi, molte copie di cartucce. 
(Fernando Ben ini - Via E. Pazzi n. 
16 46100 Ravenna). 

Vendo / Cambio moltissimo soft- 
ware per il Commodore 64. mandar 
temi le vostre liste, invierò le mie 
(Cario Micheli - Via San Primo n. 6 

- 20121 Milano - Tel. 02 / 796668 
nel pomeriggio). 

Vendo tutti r programmi esistenti stf 
mondo per C64: Magic Desk, Koa- 
la Painter, con joystick. Infiniti gio- 
chi meravigliosi, Easy Script con 


manuale in italiano, Superbase 
Multidata e tantissimi programmi 
per ingegneria 373, chiedere lista 
(Bifolchi Giordano - Vìa Per P lenza 
n. 17 - 53043 Montepulciano - Tel 
0578 / 716397 * 757907 oro 

10.30- 23,30). 

Vendo t Cambio programmi VlC 
64. (Fernando Fornor Via Valpor 
ga Cahiso n 21 - 10125 Torino - 
Tel, 011 t 6506538). 

Vendo / Cambio f Compro pro- 
grammi per Commodore 64 Praz 
zi stracciati. Richiedere elenco e/o 
inviare il proprio (Gino Ugketti Via 
Strambici 108- 27011 Beigioioso - 
PV). 

Vendo Commodore VIG 20, 7 ma- 
si di vita + Registratore C2N + 
100 giochi su cassetta + 2 cartuc- 
ce (Cosmic G funghe o Speed Bin 
go Man) + joistick + manuale - 
istruzioni in italiano Ancora in ga- 
ranzia, tutto a L. 320.000 (tratt.) 
(Stefano Mungo - Via Val Pellics n, 
51 -00141 Roma -Tel. 0124044 ore 
13-15, 19-21) 

Vendo / Compro programmi per 

VlC 2Q Basic e L.M. con espansio- 
ne a senza. Richiedere elenco 
(Bruno Gan dotti - Vta P. Calaman- 
drei n. 1 - 1 4049 Nizza Monferrato 

- Asti - Tel, 0141 / 727216 ori 

12.30- 13.30, 20-22), 

Vendiamo programmi su cassetta 
per Commodoro 64 di giachi e utili- 
ty vari, ne disponiamo circa 300- Si 
garantiscono prezzi modici. Siamo 
interessati inoltre ad ampliare il nu- 
mero degii affiliati del nostro giova- 
nissimo Club Richiedere lista pro- 
grammi od informazioni. (C,C,C, 
Commodore Club Cesena do Mae- 
stri Maurizio - Via P Genocchl n. 
492 - 47023 Cesena - Forlì). 
Vendo / Compro / Cambio softwa- 
re per C64, oltre 300 programmi di- 
sponibili, giochi, utility, offerta sem- 
pre valida. Scrivere inviando liste o 
telefonare ore pasti. Disponibilità su 
disco □ nastro. (Lorenzo Rarefo - 
Via Fabio N o ruba n . 4 - 27026 San 
Martino Sicc, ■ Pavia - Tel, 0362 / 
25086 496757) 

Vendo per VlC 20 i mignon pro- 
grammi oggi in d redazione, invio 
catalogo dettagliato (36 pagine). 
Cedo anche traduzioni istruzioni 
Superaxp - TooUdl. (Luigi Da Negri 

- Via Poggia n. 22 - 16131 Genova) 
Vendo per CBM 64 cassetta con- 
tenerne i seguenti giochi: Donkey 
Kong, Q Bert, Frogger. Centipede. 
Arcadia, Super Pipatine. lutti regi- 


strali con il Turbo tape 64 (compre- 
so in cassetta) che ha la capacità 
di aumentare la velocità del regi- 
stratore di 16 volta N tutto a L 
25.000 (compresa spese postali). 
(Salvo D'Urso- Via La Farina ri. 3d 
95016 Riposto - Catania - Tei 095 
t 936075 ore 13-17). 

Càmbio per C64 oltre 100 program- 
mi sìa su disco che nastro Inviate 
la vostra lista e vi risponderò con fo 
mia. È gradilo rinvio di un franco- 
bollo. (Francesco Punto ■ Via 1 ufa- 
ridili 18 - 80046 San Giorgio a Cre- 
mano (Napoli) Tel. OBI t 7716627 
ore 21), 

Compro Commodore 64, acquisto 
O scambio programmi su cassetta 
soprattutto ingegneria civile, gestio- 
nali. utility Inviare lista con carat- 
teristi che «prezzi (Massimiliano 
Caramelli ■ Via Australia n 15- 
00144 Roma- Tef 06/ 5924220 ore 

pasti) 

Compro cassetto per VlC 20 pres- 
sapoco al modico prezzo di L. 
10 000 ogm cinque. Vorrei la lista, 
(Giuseppe Rosatelli - Via Regina 
Margherita n 8 - 03012 Anagni - 
Tel 727137 ore 10,30). 

Compro manuale d’istruzione di 
Screen Graphic e Sam Reciler per 
C0M 64 Riviste Personal Softwa- 
re (da 1 a 19) e Commodore Com- 
puter Club (da t a 4). (Goff ano Giu- 
seppe - Via Orazio Fiacco n. 5 * 
1 0024 Moncalieri - Torino - Tel . 0 1 1 
/ 645923) 

Compro Commodore C64 senza 
registratore + floppy disk in buono 
stato al miglior offerente, (anonimo 
di Milano Tel. 02 I 6438566 nette 
ore serali). 

Compro programmi didattici d'uti- 
lità perC64. Sono interessato inol- 
tro a scambio idee, esperienza 0 
programmi, (ivol Giovanni - Via 
Martin dalla Libertà n. 34 - 25918 
Munii chiari (Brescia) - Tel. 030 / 
964444 ore serali). 

Compro cassetta con programmi 
per II Totocalcio (Commodore 64). 
I ale programma deve prevedere fi- 
mitazteni mimmo e massime per 
Tusctta dei segni 1 ,2 e X, limitazio- 
ne mimmo e massime per la con- 
seculività dei segni 1 ,2 e X rispetto 
ad un dato pronostico. Dispositivo 
che consenta di valutare il punteg- 
gio conseguito una volta che si in- 
serisco nel computer la cotenna vin- 
cente, (Antonio Zanghl - Via Car- 
rozza n 53 - 95125 Catania), 


64 -Commodore 




Registrate il mio abbonamento annuale a Commodore. 

O Ho versato oggi stesso il canone di Lire 25.000 a mezzo c/c postale 31532203 intestato a: 
Commodore Systems Editoriale - VJe Famagosta, 75 - 20142 Milano 

□ Accludo assegno per lire 25.000 banca _ nfi a favore di 

Commodore Systems Editoriale 


Il mio computer è: ViC 20 O, C 64 O, altro (specificare) 

Ho □ / non ho □ la stampante, ma voglio □ comprarla. 

Preterisco programmi di gioco □, didattici D ( d’utilità □, altro 

Nome _ Cognome _ 

Via _ n* CAP. LL 

Tel. I 


i I I Città 


Registratemi fra i collaboratori regolari di Commodore. 

A titolo di prova vi invio un articolo e la cassetta coi programma _ 

. " di cui vi garantisco l'assoluta originalità autorizzando vene fa pubblicazione. 

□ Scrìvetemi airindirìzzo sottoìndìoato 


Nome 

Vìa 

TeL 


CAP 


__ N° , 

Città 


HELP 


n° 


CAP. I I L Ll J Città 


Tel. 


Orario 


■ 

: 





Sono in 


Ho intenzione 




possesso 

No 

di acquistare 

Vi e 20 □ 

espanso a K 


□ 

□ 

□ 

C 64 □ 



□ 

□ 

□ 

Floppy □ 

quale: 1541 □ 

altro 

o 

□ 

□ 

Stampante □ 

quale: MPS801 O 

altro . .... 

□ 

□ 

□ 

Fletter □ 

quale: 1520 □ 

altro 

□ 

□ 

O 

Registratore □ 

quale: 1530 □ 

altro . 

□ 

O 

□ 


Televisore □. TV-Monitor □, Monitor D, Colore □, B/N □ 

Nome Cognome 

Via , n tì 

TeL 


CAP. I I I I il Città 


B& 




Vendo □ Compro □ - 






3 


m. 


■ 

• 

msp&r — 

m 

Nome 

: 

Via 

• 

Tel, 










CAP. LI 1 I J_l Città 


_ 


_ Orario 
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co 
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le 
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to 
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Anno 1 - N. 1 - Luglio 1984 - Distr. MePe 


SCOPRI LA DIFFERENZA DYSAN 


Perchè Dysan? 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza 
Dysan 




100% di superficie 

/ Esclusiva tecnica 

ì Speciale 

A* testata “crror free” j 

■i di Bumishing 

%/è lubrificazione ■ 


Certificazione 
* totale 


Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
1 00% " è rror f re c u n test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
-‘e rror free" anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio" 
grazie alla sua avanzata cd 
unica tecnica di 
^bLirnishing" - questo 
risultato assicura un 
miglior segnate sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 11). che le 
prestazioni "error free” 
siano esaltate c mantenute 
nel tempo 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 



datamatic 

TRATTA 6TM: ILTUO t AlCOLATORE 


Datarmbc S pA. 
via Volturno, 46 
20124 Milano 

leL: 02/6073076 (5 linee r. a.) 
telex 315377 SA DATA 1 


Filiale di Roma 
via Città di Cascia. 29 
tei. 06/3279987 







